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Preface 


Every  good  book  begins  with  a  bit  of  historical 
perspective,  as  does  this  one,  although  it  does  not 
necessarily  follow  that  this  is  a  good  book.  How- 
ever, the  phenomenal  success  of  1001  Things  To  Do 
With  Your  Personal  Computer,  with  over  100,000 
copies  in  print,  indicates  a  need  for  the  information 
it  has  provided.  Since  the  time  of  publication  of  the 
first  book,  nothing  short  of  a  revolution  has  taken 
place.  Personal  computers  have  joined  the  Ameri- 
can love  affair  with  the  television  and  automobile 
and  now  occupy  a  coveted  spot  in  more  than  five 


million  homes.  Many  of  the  applications  in  my  first 
book  are  now  commercially  available  programs; 
the  home  computer  software  market  now  includes 
some  50,000  entries,  a  bewildering  assortment  of 
programs  for  those  from  every  walk  of  life. 

The  continued  unawareness  of  the  large 
number  of  applications  a  personal  computer  can  be 
used  for  has  prompted  me  to  prepare  this  expanded 
second  book,  which  is  fully  updated  and  includes 
many  new  BASIC  programs  and  ideas. 
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Introduction 


"What  can  it  do  for  me?"  This  is  probably  one  of  the 
most  common  yet  subtly  annoying  questions  asked 
by  the  would-be  customer  of  the  personal  computer 
salesman,  sometimes  leaving  him  speechless.  It  is 
a  difficult  question,  to  be  sure.  It's  certainly  much 
easier  and  lucrative  to  expound  on  the  advantages  of 
this  computer  versus  that  one  "because  it  has  64K. " 
Enter  this  book— a  unique,  comprehensive  guide  to 
the  marvelous  (yet  scarcely  explored  elsewhere) 
home  computer  applications  that  in  the  words  of  the 
media,  "will  greatly  change  the  way  you  live  and 
work."  It's  not  just  a  "how-to-do-it"  book,  but  a 
"what  to  do"  book;  over  1000  different  imaginative 
ideas  are  presented  and  explained  herein  on  the 
premise  that  one  idea  spawns  another. 

Not  only  the  salesman,  but  the  personal  com- 
puter manufacturers  themselves  are  often  insecure 
about  just  what  can  be  done  with  their  product.  The 
standard,  meager  manual  on  BASIC  and  perhaps  a 
few  sample  programs  come  with  their  computer, 
but  little  of  reassurance  about  applications  is  in- 
cluded, leaving  the  buyer  in  a  quandary.  Something 
is  missing  from  the  whole  brave  new  world  he  had 


breathlessly  imagined.  No,  the  video  display, 
keyboard,  cables,  papers,  and  other  paraphernalia  is 
probably  all  there  and  functional.  It's  the  applica- 
tions that  are  missing.  You  didn't  buy  a  computer  as 
a  conversation  piece,  to  keep  up  with  the  Joneses, 
or  because  it  had  64K;  you  bought  it  as  a  gadget  of 
the  future,  an  appliance  of  the  mind,  the  ultimate 
game  machine,  an  adult  pacifier,  or  a  business  part- 
ner; you  got  it  to  save  the  world  from  another 
computer  illiterate,  or  you  wanted  it  to  save 
something— be  it  time,  effort,  headaches,  or 
money. 

There  is  good  news.  Among  the  seemingly 
endless  numbers  of  personal  computing  books 
available  today,  this  book  remains  a  unique 
browser's  catalog  of  potential  applications  for  your 
computer.  Allow  it  to  spawn,  identify,  and  tailor 
new  uses  for  your  system  and  to  serve  as  an 
operator's  manual  for  the  appliance  that  is  your 
mind.  It  provides  the  background  you  need  to  be- 
come more  adept,  more  versatile,  and  more  crea- 
tive in  using  your  computer's  problem-solving 
capabilities.  As  an  idea  book,  it  will  stimulate  your 


own  creativity,  helping  you  stretch  your  own  limits 
and  those  of  your  system;  the  usefulness  of  your 
computer  will  be  limited  only  by  your  ingenuity.  I 
venture  to  say  that  virtually  all  the  uses  to  which 
personal  computers  are  being  put  today  are  dis- 
cussed briefly  or  illustrated  within  this  cookbook, 
save  the  pate  de  foie  de  volatile,  that  is,  the  more 
restriced,  specialized  uses  (although  there  are 
many  of  those  inside,  too). 

Lest  I  be  accused  of  exaggeration,  I'll  amend 
the  above  claim  to  "virtually  almost  all  of  the  appli- 
cations ..."  and  invite  readers  to  send  in  their 
latest  mousetrap,  regardless  of  whether  or  not  the 
world  is  beating  a  path  to  their  door. 

This  book  should  appeal  to  anyone  interested 
in  or  owning  a  microcomputer— on  three  levels. 
The  skeptical  buyer  may  use  it  in  deciding  whether 
the  possible  applications  will  justify  the  cost  of  a 
computer  or  he  may  use  it  to  decide  between  vari- 
ous brands  of  computers  on  the  basis  of  the  software 
available  for  a  listed  application.  The  person  in- 
terested in  using  computers  but  not  in  pro- 
gramming can  use  this  book  as  a  source  of  applica- 
tions that  may  warrant  further  investigation,  or  he 
can  type  in  the  many  BASIC  programs  for  his  com- 
puter included  within.  The  advanced  personal  com- 
puter user  has  the  opportunity  to  sharpen  his  prog- 
ramming skills  using  the  many  useful,  interesting, 
and  often  challenging  program  suggestions  found 
throughout  the  book  or  to  develop  commercial 
software  for  the  burgeoning  microcomputer  mar- 
ket. 

Your  computer  is  an  extension  of  your  mind,  a 
mind  appliance.  Use  it  to  do  complex  calculations 
you  would  not  have  previously  done  manually  (for 
example,  the  amateur  or  professional  photographer 
may  calculate  more  precise  values  for  camera  set- 
tings to  achieve  a  certain  effect).  Examples  of  sim- 
ple formulas  are  presented  herein  and  are  intended 
to  be  part  of  larger,  more  complex  programs  to  be 
written  for  your  own  personal  application.  In  some 
cases,  due  to  space  regulations,  the  advanced 
reader  is  left  to  find  the  information  necessary  to 
write  a  program  based  on  an  idea  given;  all  infor- 
mation should  be  readily  available  at  a  local  library. 
In  other  cases,  the  program  itself  or  the  formulas 


and  methods  necessary  to  write  the  program  are 
provided  to  illustrate  an  idea  and  set  you  on  the 
right  track.  Analyze  and  adapt  the  program  within; 
learn  to  write  an  applied  program. 

Some  of  the  program  ideas  are  intended  not 
only  for  microcomputers,  but  for  programmable 
calculators  as  well.  Although  anyone  who  has  pro- 
grammed a  calculator  will  realize  the  tremendous 
advantages  of  a  microcomputer  system,  the  pro- 
grammable calculator  does  have  its  place.  For  those 
applications  where  portability  is  important  (for 
example,  marine  navigation),  the  calculator  comes 
in  handy. 

Promises,  promises— that's  all  you  can  hear 
from  the  alluring  ads  and  articles  generating  count- 
less wonders  from  a  personal  computer  at  the  tap 
of  a  key.  Everything  from  tending  your  garden  to 
filling  out  form  1040  has  been  claimed  as  a  time-  or 
cost-justifying  excuse  to  buy  a  computer.  Yet  these 
applications  are  often  genuinely  easier,  faster,  or 
cheaper  to  do  by  hand.  This  has  led  to  the  claim  by 
newspaper  and  magazine  critics  that  computers  are 
not  the  common  man's  electronic  panacea  and  are, 
at  best,  toys  for  the  man  who  has  everything,  the 
computer  hacker,  the  math  wiz,  or  the  gadget  freak. 
There  is  a  bit  of  truth  to  this  assertion.  It's  certainly 
possible  that  you  don't  need  a  personal  computer  at 
all  (skip  ahead  if  you've  already  taken  the  plunge). 
The  time-honored  means  of  managing  a 
household— typewriter,  file  folders,  index  cards, 
address  book,  check-book,  bulletin  board— can 
often  perform  just  as  well  as  or  better  than  their 
computerized  equivalents.  It's  senseless  to  pa- 
tiently spend  15  minutes  loading  and  reloading 
programs,  referencing  commands,  and  remember- 
ing keywords,  only  to  eventually  call  up  your 
spouse's  birthday.  Likewise,  it  wouldn't  be  practi- 
cal to  use  a  $2000  computer  for  the  purpose  of 
computing  your  automotive  miles  per  gallon  or  to 
store  a  couple  dozen  recipes;  miles  per  gallon  can 
easily  be  computed  in  your  head;  index  cards  are 
much  better  for  storing  a  typical  small  collection  of 
recipes  and  can  be  thumbed  with  wet  or  sticky 
hands.  A  checkbook  can  be  carried  along  and  filled 
out  on  the  spot— not  an  easy  match  for  a  home 
computer. 


"But,"  you  say,  "I  see  some  of  those  applica- 
tions listed  in  this  book, "  and  you  may  have  the  urge 
to  fold,  spindle,  or  mutilate  this  page.  The  answer 
to  this  seeming  contradiction  is  that  these  applica- 
tions are  practical  uses  of  a  computer  for  some 
people.  For  instance,  if  you  ran  a  delivery  service,  a 
miles  per  gallon  calculating  program  that  included 
statistical  analysis  for  each  truck  and  driver  could 
be  useful  in  improving  efficiency.  If  you  happen  to 
be  a  professional  chef  or  gourmet  cook,  you  might 
need  a  computer  program  that  could  automatically 
organize  hundreds  of  recipes  and  even  calculate  the 
amount  of  each  ingredient  necessary  for  a  given 
number  of  people.  Using  a  computer  to  balance  a 
checkbook  would  be  a  case  of  electronic  overkill. 
However,  a  program  fed  with  your  financial  data  on 
a  regular  basis  could  serve  as  youi  personal  ac- 
countant, giving  you  a  rundown  on  clothing  costs  for 
each  individual  family  member,  a  comparison  of 
monthly  utility  bills,  and  a  complete  year-end  list  of 
tax-deductible  expenditures— and  yes,  your  bank 
balance. 

Impractical  programs  thus  become  practical  in 
specialized  applications,  as  interesting,  educational 
examples  of  programming,  and  as  idea  stimulators 


for  better  applications.  Therefore  they  are  included 
in  this  book,  but  with  a  warning  that  they  can  often 
be  considerably  more  time  and  effort  consuming 
than  the  old-fashioned  way. 

It  is  when  the  size  of  your  project  or  hobby 
becomes  large  enough  that  computing  can  offer  so- 
lutions. The  typewriter  is  a  simple,  easy  tool  for 
creating  short  memos;  the  word  processor  be- 
comes useful  in  preparing  100  page  theses.  When 
your  application  demands  many  mathematical  cal- 
culations, it's  important  to  consider  computing 
power.  However,  to  many  hobbyists,  the  writing  of 
a  program,  whether  or  not  it  has  any  real  value,  is  an 
end  in  itself.  To  them,  the  computer  is  the  most 
enticing  combination  crossword  puzzle,  chess 
game,  Rubik'scube,  and  balsa-wood  airplane  kit  yet 
devised. 

Within  these  pages  you  can  discover  and 
exploit  the  virtually  boundless  potential  inherent  in 
your  personal  computer.  Move  ahead  of  the  times, 
extend  your  reach,  open  up  new  avenues  of  per- 
sonal growth,  enjoy!  It  is  my  intention  to  help  you 
expand  your  horizons  and  to  answer  the  paramount 
question,  "What  can  it  do  for  me?" 


Chapter  1 


Applications  for  Everyone 


In  this  increasingly  complex  world,  a  personal  com- 
puter is  most  useful  in  organizing  and  simplifying 
the  minutia  of  everyday  life.  In  this  chapter  you  will 
find  an  eclectic  collection  of  applications  for 
everyone,  each  designed  to  streamline  daily  life. 

PERSONAL  REFERENCE  SOURCE 

Reference  information  that  is  often  referred  to 
but  too  complex  to  memorize  could  be  stored  for 
instant  retrieval.  Possibilities  are  endless,  but 
examples  of  charts,  tables,  and  lists  that  have  been 
stored  in  personal  computers  include 

1.  Calories  and  nutritional  content  of  selected 
foods. 

2.  Appointment  itinerary. 

3.  Important  articles  and  books  (stored  by  author 
title,  topic,  and  date). 

4.  Sports  statistics,  amateur  or  professional. 

5.  Product  sources,   specifications,  and  prices 
from  various  suppliers  for  comparison. 

6.  Names,  addresses,  and  phone  numbers. 

7.  Stock  market  data  including  name,  symbol, 


shares,  price,  and  historical  data. 
Recipes  and  shopping  lists. 
Postal  and  shipping  rates,  requirements,  and 
regulations  for  the  businessman. 
Metric  conversions  and  information. 
11.  Time  differences  and  phone  rates  between 
cities. 

Words  commonly  misspelled  or  misused  (as  a 
quick  reference  writer). 
Ham  Radio  log  of  contacts,   locations,  and 
times. 

Collection  inventory,  including  name  of  item, 
age,  values,  and  identifying  information. 

15.  Private  pilot  flight  planning  data. 

16.  Household  inventory  for  insurance  and  finan- 
cial purposes. 

Astronomical  and  astrological  data. 
Things  to  be  done,  ordered,  or  checked  with 
times  available  and  deadlines. 
Fishing  log. 

Quotations  by  topic  and  source. 
References  from  literature,  the  Bible,  and  so 
on. 


8. 
9. 

10. 


12. 


13 


14 


17. 
18. 

19. 
20. 
21. 


22 


23 


24. 


25. 


Dates  of  birthdays,  anniversaries,  and  other 

special  occasions. 

Automotive  service  information,  especially  for 

business  car  fleets. 

Patient  laboratory  data  over  time,  differential 

diagnoses,  or  drug  for  physicians. 

Credit  cards,  with  numbers  to  call  in  the  event 

of  theft. 

26.  Safety  deposit  box  contents. 

27.  Physical  contents,  chemical  data,  formulae. 

28.  Emergency  phone  numbers. 
Poison  antidotes. 

Computer  software/hardware  comparisons. 
Cumulative  weather  data. 
Abbreviations. 
Wire  information  for  the  the  connoisseur. 

34.  Horse  racing  statistics. 

35.  Anecdotal  material  for  those  obliged  to  make 
speeches. 

36.  Insurance  policy  inventory  including  coverage, 
cost,  account  numbers,  and  deductibles  for 
house,  car,  health,  and  other  kinds  of  insur- 
ance. 

This  list  isn't  exhaustive,  and  only  a  few  of 
these  applications  may  be  of  use  to  you,  but  it 
serves  to  illustrate  the  multiple  possibilities 
primarily  involving  the  storage  of  information.  How 
would  you  store  this  information?  Use  the  Elec- 
tronic Memorandum  program  Listing  1-1,  or  the 
Data  Base  Demonstration  program,  Listing  1-14, 
for  your  own  tailor-made  application. 

THE  ELECTRONIC  MEMORANDUM  PROGRAM 

In  Listing  1-1  you  will  find  a  program  that 


29. 
30. 
31. 
32. 
33. 


should  be  useful  to  everyone;  think  of  it  as  a  mem- 
ory extension.  The  program  allows  you  to  store  any 
type  of  information  (household,  business,  financial) 
under  a  "keyword"  for  instant  retrieval  at  a  later 
date.  For  instance,  if  you  had  an  appointment  on  a 
certain  date,  the  pertinent  information  could  be 
stored  under  the  keyword  "9/11/85;"  on  that  date 
you  would  simply  type  "9/11/85"  to  receive  a 
printout  of  all  appointments  or  reminders  stored 
under  that  keyword.  Likewise,  a  remainder  for  an 
annual  occasion  could  be  entered  under  a  keyword 
specifying  only  the  month  and  day.  Keywords  may 
be  dates  or  words  such  as  "MARKS  BIRTHDAY." 
Telephone  numbers,  business  contacts,  important 
dates,  and  many  other  bulletin-board  type  scraps  of 
information  could  be  stored  so  that  they  could  not 
be  forgotten  or  misplaced.  This  information  could 
include  the  number  and  expiration  date  of  your 
driver's  license,  the  serial  numbers  of  credit  cards 
(and  who  to  notify  if  they  are  lost),  expense  account 
information,  information  about  insurance  policies, 
warranty  information  on  all  appliances,  names  and 
addresses  of  dealers,  magazine  subscription  dates, 
handy  home  repair  tips  (for  example,  the  size  of  the 
air  conditioner  filter),  lock  combinations,  special 
codes,  the  method  of  resetting  a  digital  watch, 
Christmas  gifts  and  to  whom  they  were  given, 
eyeglass  prescription,  and  so  on  ad  infinitum.  Ad- 
ditionally, information  may  be  stored  under  more 
than  one  keyword  to  ensure  the  ability  to  retrieve 
it. 

This  program  is  designed  for  use  with  floppy 
disks.  It  could  be  changed  for  use  with  a  cassette, 
but  this  would  be  undesirable  because  of  the  amount 
of  time  needed  to  access  the  information.  The  pro- 
gram requires  6.3K  of  memory. 


Listing  1-1:  The  Electronic  Memorandum  Program. 

10  REM  ELECTRONIC  MEMORANDUM 

15  REM  USES  RANDOM  ACCESS  DISK  FILES  WITH  DISK  COMMANDS  IN 

16  REM  MICROSOFT  BASIC 

20  CLEAR  3000: REM  'CLEAR  3000'  RESERVES  3000  BYTES  FOR  STRINGS; 
THIS  COMMAND  MAY  NOT  BE  REQUIRED  FOR  YOUR  COMPUTER 
30  CLSrREM  'CLS*  ERASES  SCREEN;  USE  THE  APPROPRIATE  COMMAND  FOR 
YOUR  COMPUTER 


40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

950 

1000 


PR I NT "SELECT  AN  OPTION: " 

PR I NT "COMMAND", "FUNCTION" 

PR I NT "INPUT", "INPUT  A  NEW  ITEM" 

PRINT-CAT", "GENERATE  A  CATALOG  OF  COMMON  ENTRIES" 

PRINT'TIND'V'FIND  A  PREVIOUSLY  STORED  ITEM" 

PR I NT "REDO", "EDIT  A  PREVIOUSLY  STORED  ITEM" 

PR I NT "DEL", "DELETE  A  PREVIOUSLY  STORED  ITEM" 

PR I NT "END", "END  THE  PROGRAM" 

INPUTA* 

I FA*= " I NPUT " THEN 1 000 

I FA*= " CAT " THEN3000 

I FA*= " F I ND " THEN4000 

I FA*= "REDO " THEN2000 

IFA*="DEL"THEN5000 

I FA*= " END " THENCLOSE : END 


PR I NT " I LLE8AL  COMMAND " 
B0T050 

REM  ROUTINE  TO  INPUT  DATA 
I  NPUT  "ENTER  AN  ID  CODE"  J- B* 


101 0  I FLEN ( B* ) >20THEN 1 000 
1015  REM  LINES  #1020-1040  ARE  FOR  VERIFICATION  OF  DATA  WHEN 
INPUTTING;  YOU  MAY  WISH  TO  DELETE  THESE  TO  SAVE  TIME  WHEN  INPUTTING 
1020  PRINT" IS  THIS  CORRECT  (1=YES,2=N0)    "SB* 
INPUTD 

IFDO1THEN1000 

I NPUT "ENTER  THE  DATA  FOR  THE  ID  CODE" J C* 

IFLEN(C*)  M05THEN1050 

D*=LEFT*<B*, 1)+"*" 

CLOSE 

0PEN"R",1,D*:Z=1 

FIELDttl , 3ASE*, 20 ASF*, 105AS8* 

GET  1,Z 

IF  E*="999"  THEN  Z=Z+1 : IFZ=LOF ( 1 ) +1THEN  1200  ELSE  1O80 

LSETF*=B* 

LSETG*=C* 

LSETE*="999" 

PUT1,Z 

CLOSE 

GOTO  30 

REM  ROUTINE  TO  EDIT  DATA 

I NPUT "ENTER  THE  ID  CODE  FOR  THE  DATA  TO  BE  EDITED    "SB* 

D*=LEFT*(B*, 1)+"*" 

CLOSE: Z=l 

OPEN"R",l,D*:iF  L0F(1)=0  THEN  PR  INT  "FILE  END"  ."CLOSE:  GOTO  40 

F I ELD# 1 , 3ASE* , 20 ASF* , 1 05 ASG* 

I FZ=LOF  < 1 ) + 1 THENPR I NT " F I LE  END " : CLOSE : G0T04O 

GET1,Z 

IFE*<>"999"  THEN  Z=Z+1:G0T0  2040 

IF  LEFT*(F*,LEN(B*))OB*  THEN  Z=Z  +  l:G0T0  2O40 

CLS 

pr i nt "memorandum: " 
printg*:print 


1030 

1040 

1050 

1060 

1062 

1064 

1066 

1070 

1080 

1 090 

1200 

1210 

1220 

1230 

1240 

1250 

1950 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 


INPUT"DO  YOU  WISH  TO  EDIT  THIS  ITEM  (1=YES!,  2=N0)";Y 

IF  Y=2  THEN  Z=Z+l:GOTO  2040 

CLS 

INPUT "REENTER  ALL  DATA" 5 C* 

IF  LEN(C*>>105  THEN  PR I NT "DATA  >105  CHARS.  LONG-  REENTER"! 

2150 

LSET0*=e*:-LSETF*=B*; LSETE*=U99?"  ' 

PUT1,Z 

Z=Z+l:GOTO  2040 

REM  ROUTINE  TO  LIST 

PR  I  NT  "SELECT  DLIST 

INPUT"        2) LIST 


2120 
2130 
2140 
2150 
2160 
GOTO 
2170 
2180 
2190 
2990 
3000 
3010 
ST  LETTER" 5 Y 

3020  ON  Y  GOTO 


CATALOG  OF  ENTRIES 

A  CATALOG  OF  ALL  ITEMS  ON  FILE" 

ALL  ITEMS  WHOSE  IDS  HAVE  A  SPECIFIED 


FIR 


3U3U 
3040 
3050 
3060 
3070 
3080 


3300,3030 
INPUT "ENTER  THE  ID  CODE" ;H*: D*=LEFT* <H*, 1 ) +"*" 

close: z=i : print: print "sector" , "  id" 


IF  L0F<1)=0  THEN  PRINT"FILE  END' 
E*,20  AS  F*, 105  AS  G$ 


THEN  PRINT"- 


THEN  Z=Z+l:GOTO  3060 


"ID" 


IF  L0F<1)=0THEN  NEXT  X: CLOSE: GOTO  40 

E$, 

THEN 


20  AS 
NEXT 


F*, 105  AS  G* 
X: CLOSE: GOTO 


OPEN  "R", 1,D*: 
FIELD  #1,3  AS 
GET  1,Z 
IF  Z=L0F(1)+1 

lose:goto40 

3090  IF  E*<>"999" 

3110  PRINTZ,F* 

3120  Z=Z+1 

3130  GOTO  3060 

3300  CLS 

3310  PR I NT "SECTOR" 

3320  F0RX=65  TO  90 

3330  J*=CHR*(X) 

3340  D*=J*+"*" 

3350  Z=l: CLOSE 

3360  OPEN  "R", 1 , D* 

3370  FIELD  #1,3  AS 

3380  IF  Z=LPF(1)+1 

3390  GET  1 , Z 

3400  IF  E*<>"999 

3410  PRINTZ,F* 

3420  Z=Z+1 

3430  GOTO  3370 

4000  CLS 

4010  INPUT "ENTER  ID  CODE" US* 

4020  D*=LEFT*(B*,1)+"*" 

4030  CLOSE: Z=l 

4040  OPEN"R" , 1 , D*: IF  LOF ( 1 ) =OTHEN 

4050  IFZ=L0F<1)+1  THEN  PRINT"FILE 

4060  FIELD  #1,3  AS  E*,20  AS  F*, 105 

4070  GET  1,Z 

4080  IF  LEFT*(F*,LEN(B*) ) =B*  THEN  4130 

4090  IF  E*<>"999"  THEN  Z=Z+1:G0T0  4050 

4100  Z=Z+1 

4110  GOTO  4050 

4130  PRINT"ID."  "F*5"     SECT0R:"5Z 


: CLOSE: GOTO  40 


:PRINT."C 


40 


THEN  Z=Z+l: GOTO  3370 


PR I NT "FILE  END" 
END": CLOSE: GOTO 
AS  G* 


! CLOSE: GOTO 
40 


40 


CODE,  SECTOR" ;B*,Z 


4140  PRINTG* 

4150  PRINT 

4160  Z=Z+1 

4170  GOTO  4050 

5000  CLS 

5010  INPUT "ENTER  THE  ID 

5020  D*=LEFT* (B*,l)+"#" 

5030  CLOSE 

5040  OPEN"R", 1,D* 

5050  FIELD  #1,3  AS  E*,20  AS  F*, 105  AS  G* 

5060  GET  1,Z 

5070  IF  LEFT*(F*,LEN(B*))OB$THENPRINT"ID 

CLOSE: GOTO  40 

5080  CLS 

5090  PRINT" ID" J F* 

5100  PRINTG* 

5110  PRINT 

5120  INPUT" IF  YOU  WANT  TO  DELETE 

5130  IF  YOl  THEN  CLOSE:  GOTO  40 

5140  FIELD  #1,3  AS  E*,20  AS  F*, 105  AS  G* 

5150  LSET  E*="" 

5160  LSET  G*="n 

5170  LSET  F*="" 

5180  PUT1,Z 

5190  CLOSE 

5200  GOTO  40 


AND  SECTOR  DON'T  MATCH": 


THIS  RECORD  TYPE 


AN  INDEX  TO  YOUR  LIBRARY 

How  often  do  you  remember  reading  an  im- 
portant article  or  chapter,  yet  you  can't  remember 
the  name  or  date  of  the  magazine  or  book?  A  per- 
sonal computer  can  easily  organize  and  cross- 
reference  your  books  and  articles  for  instant  re- 
trieval using  only  the  name,  subject,  author,  or 
other  parameter  to  retrieve  the  entries  you  are 
interested  in.  With  the  wealth  of  personal  computer 
magazines  available,  an  index  to  pertinent  articles 
will  ease  the  difficulty  of  finding  that  special  patch 
or  program. 

A  program  to  accomplish  indexing  could  store 
information  regarding  items  as  a  continuous  string 
of  data,  each  string  being  composed  of  several 
"fields,"  and  each  field  separated  by  a  comma.  An 
example  of  a  string  with  fields  describing  a 
magazine  article  could  be  as  follows: 

The  Stock  Market, 


Business  Today, 
> /  v v ' 

name  of  article/book         name  of  magazine/book 


I, 


category 

#1 


S, 


category 

#2 


storage 
location 


Smith 


author 


If  data  is  formatted  on  disk  in  a  manner  similar 
to  this  example,  random  access  disk  commands  will 
allow  the  computer  to  search  through  a  selected 
field  to  find  all  entries  with  a  given  field.  For  exam- 
ple, the  user  could  specify  a  search  for  all  entries 
having  an  author  named  "Smith."  The  computer 
would  then  search  through  the  entire  disk  file  exa- 
mining all  the  fields  containing  author's  names  (the 
last  field  in  the  above  example)  and  printing  all 
those  with  "Smith"  as  the  author.  The  disk  com- 
mands used  for  random  access  for  the  above  format 
are  shown  in  Listing  1-2. 


Listing  1-2:  The  Random  Access  Sample  Routine. 

10  CLStREM  OPEN  A  FILE  FOR  RANDOM  ACCESS  ("R")  USING  BUFFER  #1  NA 

MED  "FILE" 

20  OPEN  "R",1,"FILEB 

30  REM  FORMAT  BUFFER  #1  AS  30  LETTERS  FOR  THE  NAME  OF  THE  ARTICLE/ 

BOOK,  30  LETTERS  FOR  THE  NAME  OF  MAGAZINE 

40  REM  TWO  LETTERS  FOR  VOLUME  NO.,  5  LETTERS  FOR  DATE,  1  FOR 

CATEGORY#l,l  FOR  CATEGORY  2,  1  FOR  STORAGE  LOCATION 

50  REM  AND  10  FOR  AUTHOR  NAME 

60  FIELD  1,30  AS  NME$,30  AS  MAG$,2  AS  VOLUME$,5  AS  DTE$,1  AS  Cl$, 

1  AS  C2$,l  AS  WHERE$,10  AS  AUTHOR$ 

65  REM  SET  FILE  COUNTER  TO  1  TO  BEGIN  AT  BEGINNING  OF  FILE 

67  X=l:GOTO  120 

70  REM  IF  REACH  END  OF  FILE,  THEN  END  SEARCH 

80  IF  EOF(l)  THEN  GOTO  500 

90  REM  INCREMENT  FILE  COUNTER 

100  X=X+1 

110  REM  READ  THE  NEXT  ENTRY  INTO  BUFFER  #1 

120  GET  1,X 

130  REM  IS  THE  AUTHOR  "SMITH"?  IF  SO,  PRINT  OUT  THAT  ENTRY 

140  IF  AUTHOR$="SMITH"  THEN  PRINT  NME$;MAG$;VOLUME$;DTE$;Cl$;C2$; 

WHERE$;AUTHOR$ 

150  REM  INCREMENT   COUNTER 

160  X=X+l:GOTO  80 

500  CLOSE: REM  CONTINUE  PROGRAM  FROM  HERE... 


Likewise,  the  computer  could  examine  more 
than  one  field  to  limit  the  search  to  more  specific 
entries.  As  an  example,  you  could  request  a  list  of 
all  articles  published  after  1980  concerning  the 
stock  market.  The  computer  would  search  both  the 
category  and  date  fields  for  data  meeting  these 
requirements.  A  listing  of  all  the  information  con- 
cerning each  item  would  be  outputted  at  the  conclu- 
sion of  the  search.  Floppy  disks  or  high-speed  ran- 
dom access  cassettes  are  best-suited  for  this  appli- 
cation. 

WORD  PROCESSING 

Pencil  and  paper  have  never  been  the  ideal 
servants  of  the  mind.  Paper  refuses  to  accept  in- 
stant changes  at  the  whim  of  the  writer.  Instead,  the 
writer  must  resort  to  erasing,  inserting,  cutting, 
and  pasting. 

But  no  longer  are  we  restricted  to  pencil  and 
paper.  Word-processing  programs  can  allow  rear- 


rangement of  words  at  the  touch  of  a  finger;  era- 
sures are  of  the  past.  Correction  fluid  has  likewise 
been  replaced  by  the  DELETE  key.  Word  proces- 
sors give  you  the  ability  to  write  spontaneously. 
Whereas  most  people  try  to  edit  their  words  before 
committing  them  to  paper,  the  advent  of  word  pro- 
cessors allows  you  to  type  as  you  think,  and  later 
rearrange  words,  sentences,  and  paragraphs  in  a 
painless  fashion.  Thus,  the  writer  can  make  his 
ideas  concrete  by  displaying  them  on  the  video 
screen  and  later  concern  himself  with  the  gram- 
matical aspects,  before  printing  out  a  manuscript. 
Many  writers  feel  that  this  enhances  their  creativ- 
ity and  makes  writing  easier  and  more  enjoyable. 
After  your  manuscript,  letters,  or  documents 
are  corrected  on  the  video  screen,  you  may  assign 
various  codes  determining  page  widths,  page 
lengths,  page  numbering,  margins,  and  so  on;  the 
printer  will  reproduce  the  document  perfectly,  as 
you  have  specified.  You  can  then  edit  the  document 


and  print  it  out  again,  without  having  to  devote  time 
and  effort  to  retyping  it.  Additionally,  this  informa- 
tion can  be  stored  on  a  floppy  disk  for  later  review 
and  retrieval. 

Anyone  who  writes  professionally  or  com- 
poses a  letter  each  day,  should  investigate  the  use 
of  a  word  processor.  Most  are  very  easy  to  use  and 
can  be  tremendous  time,  labor,  and  money  savers. 
Many  experts  consider  this  application  one  of  the 
most  useful  for  personal  computer  owners. 
With  most  word  processors  you  can: 

•  Block  Move.  This  feature  lets  you  move  pieces  of 
your  text— from  a  word  to  several  paragraphs— 
around  like  blocks.  You  can  also  delete  a  block  at 
whatever  point  you  designate,  and  the  rest  of  the 
text  will  fill  in  the  "hole."  Or,  conversely,  you 
can  add  new  blocks  at  any  point.  Think  of  a  word 
processor  as  a  word  processor  of  writing,  capable 
of  slicing,  chopping,  and  dicing  the  language  with 
ease. 

•  Word  Wrap.  As  you  type  on  a  word  processor  you 
can  forget  hitting  the  carriage  return  key  at  the 
end  of  each  line,  as  the  computer  automatically 
puts  as  many  words  as  possible  on  one  line  and 
then  starts  a  new  one.  This,  in  computerese,  is 
called  word  wrap. 

•  Search  and  Replace.  You  can  instruct  the  word- 
processor  program  to  search  the  entire  text  or  a 
portion  of  it  for  the  occurrence  of  a  particular 
word  or  phrase.  Suppose  you  would  like  to  cor- 
rect a  misspelled  name  throughout  a  six  page 
letter:  just  type  in  the  name  as  you  misspelled  it 
and  again  as  spelled  correctly;  the  program  will 
automatically  correct  this  error  throughout  the 
text.  The  search  command  may  also  be  used  to 
rapidly  locate  a  section  in  a  large  manuscript. 

•  Typeover.  When  you  want  to  substitute  one  word 
or  phrase  for  another,  you  can  type  your  change 
right  over  the  existing  text,  and  the  unwanted 
letters  will  vanish  as  the  new  ones  appear  to  fill 
their  places. 

•  Justify.  Some  programs  will  automatically  adjust 
the  spacing  between  words  or  letters  so  that  each 
line  can  be  printed  out  at  the  same  length.  This 
process  is  called  right  justification.  Left  justifica- 
tion simply  means  that  the  lines  are  aligned  at  the 


left  margin  as  usual,  although  some  programs  can 
create  special  effects  by  aligning  text  only  at  the 
right  margin  or  by  centering  all  text. 

These  are  the  most  basic  features  found  on 
word  processing  programs.  Many  other  special 
features  come  with  certain  word-processing  pack- 
ages. For  example,  a  mouse  can  be  used  to  position 
the  cursor  at  any  point  on  the  screen  to  facilitate 
editing.  An  automatic  directory  program  can  check 
the  spelling  of  each  word  you  write  against  its 
vocabulary  and  make  corrections.  An  automatic 
thesaurus  program  can,  at  your  command,  display 
five  to  ten  synonyms  for  thousands  of  common  En- 
glish words.  Other  programs  are  designed  to  cor- 
rect faulty  grammar— for  those  who  don't  mind 
having  a  computerized  English  teacher— or  allow 
you  to  design  type  fonts  and  integrate  graphs  and 
pictures  with  your  text.  Several  typesetting  firms 
will  also  accept  word  processor  output  directly  via 
modem  or  floppy  disk  for  instant,  money-saving 
typesetting  jobs. 

LETTER  WRITING 

A  specialized  text  editor,  designed  to  edit  and 
format  your  letters,  could  expedite  the  process 
considerably.  For  example,  if  you  are  writing  a 
business  letter,  the  address  of  the  recipient  could 
be  stored  when  it  is  typed  at  the  beginning  of  the 
letter  and  later  recalled  to  print  the  envelope.  If  you 
are  writing  the  same  letter  to  several  people,  the 
body  could  be  stored  in  the  computer.  You  need 
type  only  the  addresses  and  other  personalized  in- 
formation, and  this  information  would  be  inte- 
grated with  the  text  to  form  a  complete  letter. 
Additionally,  the  editing  features  of  a  word  proces- 
sor facilitate  the  correction  of  mistakes  while  you 
are  entering  the  body  of  the  letter  or  the  per- 
sonalized information.  A  mailing  list  program  can 
be  integrated  with  such  a  program  to  automatically 
produce  personalized  letters.  A  program  to  prepare 
a  personalized  form  letter  is  presented  in  Listing 
1-3. 

CATEGORIZING  INFORMATION 

The  purpose  of  the  subroutine  in  Listing  1-4  is 


Listing  1-3:  The  Specialized  Word-Processor  Program 

10  1 

REM  SPECIALIZED  WORD  PROCESSOR-  WRITES  LETTERS 

20  CLEAR  5000 

25  REM  A*(X>  CONTAINS  LINES  OF  THE  LETTER, 

MUMBERED  BY  X 

30  1 

DIM  A* (500) 

35  ( 

:ls 

40 

INPUT "ENTER  THE  DATE";D$ 

50 

INPUT  "ENTER  RECIPIENT'S  NAME'S'Dl* 

55  1 

REM  THE  "LINEINPUT"  COMMAND  ALLOWS  ENTRY 

OF  COMMAS  OR 

QUOTES 

60 

_ I NE INPUT "ENTER  COMPANY  NAME  OR  TITLE  (TYPE  ENTER  IF 

NONE)  "; 

C* 

70 

_ I NE INPUT "ENTER  STREET  ADDRESS  "?N1* 

80 

LINE INPUT "ENTER  TOWN  STATE  ZIP  AS  ONE  STRING  "5T1* 

90 

INPUT "ENTER  NAME  FOR  LETTER  ADDRESS  (EB. 

DEAR )  "; 

Al* 

400 

PR I NT "ENTER  SUCCESSIVE  LINES  FOR  THE  BODY.  IF  YOU  MAKE  AN  ER 

ROR 

ON" 

410 

PR I NT "A  LINE  AND  WOULD  LIKE  TO  CORRECT 

IT  ENTER  '#' 

AND  THE  N 

UMBER" 

420 

PR  I  NT  "OF  THE  LINE  (EB.  #5)  AS  ANY  OTHER- 

LINE. " 

430 

PR  I  NT  "TYPE  'END'  TO  PRINT  OUT  A  COPY" 

440 

FOR  X=l  TO  500 

445 

PRINT  "#";x 

447 

LINEINPUT  A*(X) 

450 

IF  LEFT*(A*(X) , 1)="#"  THEN  800 

460 

IF  A*(X)="END"  THEN  480 

470 

NEXT  X:  X=X-1 

^ 

480 

PRINT: INPUT "READY  THE  PRINTER  TO  OUTPUT 

LETTER.  THEN 

PRESS  EN 

TER 

.  ,l5KK* 

490 

LPR I  NT  .*  LPR I  NT :  LPR  I  NT :  LPR I  NT 

500 

LPRINT  TAB (55) ; D* 

510 

READ  N*„A*,T*,A2$ 

520 

LPRINT  TAB (55) 5  A* 

530 

LPRINT  TAB (55) 5 T* 

540 

LPR I NT : LPR I NT : LPR I NT : LPR I NT 

550 

LPRINT  TAB  (5)  jiDl* 

560 

IF  C*<>""  THEN  LPRINT  TAB (5) 5 C* 

570 

LPRINT  TAB (5) 5N1* 

580 

LPRINT  TAB (5) ?T1* 

590 

LPRINT 

600 

LPRINT  TAB (5) j "DEAR  ";A1*;":" 

610 

LPRINT 

620 

FOR  B=l  TO  X-l 

630 

LPRINT  TAB (5) SA*(B) 

640 

NEXT  B 

650 

C=23+B 

660 

LPRINT 

670 

LPRINT 

680 

LPRINT  TAB (55) 5 "CORDIALLY, " 

690 

LPRINT 

700 

LPRINT 

710  LPRINT  TAB (55) 5 N* 

720  IF  A2*<>"X"  THEN  LPRINT  TAB(55)SA* 

721  LPRINT: LPRINT: LPRINT: LPRINT: LPRINT 

725  INPUT  "DO  YOU  WANT  TO  DO  ANOTHER  LETTER  " ! NL* 

726  IF  LEFT*(NL*, 1)="Y"  THEN  10 

727  END 

730  REM  ENTER  YOUR  ADDRESS  HERE 

740  DATA  JOHN  DOE 

750  DATA  MFB  INC. 

760  DATA  321  ANYSTREET  WEST 

770  DATA  NEW  YORK,  NY    10036 

800  REM  EDIT  ROUTINE 

810  Y=VAL(RIGHT*(A*(X),LEN(A*(X)>-1)) 

820  INPUT "SELECT:  1 ) RE-ENTER  ENTIRE  LINE  2) EDIT"!  ff 

830  ON  A  GOTO  840,860 

840  LINEINPUT  A*(Y> 

850  X=X-l:  GOTO  470 

860  REM 

870  FOR  Q=l  TO  10000 

880  Q*=INKEY*   'STROBE  KEYBOARD 

881  PR I NT "PRESS  L  TO  SEE  THE  ENTIRE  LINE  TO  BE  EDITED." 

882  PR I NT "USE  THE  SPACE  BAR  TO  DISPLAY  EACH  LETTER  IN  THE  LINE  ONE 
AT  A  TIME. " 

884  PR I NT "PRESS  I  TO  INSERT 

886  PRINT  "PRESS  B  TO  BACKSPACES 


PRESS  ENTER  TO  END  EDITING. 


(PRESS  ENTER  TWICE  TO  END  IF  YOU  ARE  INSERTING  CHARACTERS.) 


887 
888 
890 
895 
900 
-C) 
910 
(Y)  . 
920 


C=l 

FOR  Q  =  1 

Q*=INKEY* 

IF  Q*="  " 

IF  Q*="D" 


IF  Q*="I"  THEN 
LEN(A*(Y> )-L+  1) 

IF  Q*=CHR*(13) 
GOTO  470 

930  IF  Q*="B"  THEN 
935  IF  Q*="L"  THEN 
937  IF  Q*=CHR*(13) 
940  NEXT  Q 
950  GOTO  870 


TO  10000 

THEN  M=M+l:D=C+l:  I*=MID*  (A*  <Y)  ,M,  1)  ."PRINT  1*5 

THEN  A*(Y)=LEFT*(A*(Y) , C-l ) +RIGHT* (A* (Y) ,LEN(A*(Y) ) 

INPUT  J*:A*(Y)=LEFT*(A$(Y) , C-l ) +J*+RIGHT* (A* 

THEN  PRINT:PRINTCHR*(29) : PRINT  A*(Y):  X=X-1: 

PRINT  CHR*(8);:  C=C-1  'BACKSPACE 
PRINT: PRINT  A*(Y):C=l:M=0 
THEN  PR I NT : PR I NTCHR* ( 29 ) : END 


to  categorize  information  stored  in  random  access 
format  on  a  floppy  disk.  Data  is  stored  on  disk  with, 
for  instance,  a  10  character  keyword  preceding  240 
characters  of  descriptive  information  (many  random 
access  disk  systems  have  a  string  length  limit  of  255 
total  characters).  The  subroutine  searches  through 
the  disk  files  to  find  and  print  all  entries  having  a 
given  keyword.  This  subroutine  operates  on  the 
same  principle  as  the  Electronic  Memorandum  pre- 
sented earlier  in  this  chapter,  but  it  is  simplified  for 


this  application.  Listing  1-5  is  a  simple  categorizing 
program. 

Why  is  a  categorizer  program  useful? 
Businessmen,  writers,  and  other  professionals  who 
need  to  categorize  information  for  presentations, 
reports,  outlines,  or  organizational  purposes  may 
find  that  a  program  incorporating  this  subroutine  is 
helpful.  A  similar  program  was  used  in  the  prepara- 
tion of  this  book.  Many  other  applications,  including 
categorizing  income  tax  deductions,  are  possible. 


Listing  1  -4:  The  Categorizer  Subroutine 

10  REM  CATEGORIZER  SUBROUTINE 

15  REM  USES  MICROSOFT  DISK  BASIC  COMMANDS 

20  REM  INCORPORATE  WITH  A  DATA  BASE  WHICH  STORES  INFORMATION 

30  REM  IN  THE  FORMAT  OF  (E.G.)  10  CHARACTERS  FOR  KEYWORDS 

40  REM  AND  (E.G.)  240  CHARACTERS  FOR  DESCRIPTIVE  INFO 

900  REM  SELECT  KEYWORD/CATEGORY  TO  SEARCH  FOR 

950  INPUT  "ENTER  KEYWORD/CATEGORY: " fA$ 

1000  REM  OPEN  A  FILE  FOR  RANDOM  ACCESS ("R")  USING  BUFFER  #1  &  FI 

LE  NAMED  "DATA" 

1010  OPEN  "R^l^DATA" 

1020  REM  FORMAT  BUFFER  #1  AS  10  CHARACTERS  FOR  THE  CATEGORY  NAME 

1030  REM  AND  240  CHARACTERS  FOR  DESCRIPTIVE  INFORMATION 

1040  FIELD  1,10  AS  CAT$,240  AS  INFO$ 

1070  REM  IF  REACH  END  OF  FILE,  THEN  END  SEARCH 

1080  IF  EOF(l)  THEN  GOTO  2000 

1090  REM  INCREMENT  FILE  COUNTER 

1100  X=X+1 

1110  REM  READ  THE  NEXT  ENTRY  INTO  BUFFER  #1 

1120  GET  1,X 

1125  REM  IF  THIS  ITEM  IS  THE  DESIRED  CATEGORY,  THEN  PRINT  OUT 

1130  IF  CAT$=A$  THEN  PRINT  INFO$ 

1140  REM  INCREMENT  COUNTER 

1150  X=X+l:GOTO  1080 

2000  CLOSE:REM  CONTINUE  PROGRAM  HERE... 


Listing  1-5.  The  Categorizer  Program 


10 

20 

30 

40 

50 

60 

65 

70 

80 

90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

300 


AT  THE  BE6 INNING" 


REM   CATEGORIZER  PROGRAM 

CLEAR  5000'  ADJUST  ACCORDINGLY 

DIM  A*  (1000) 

INPUT  "SELECT:  1)  ENTER  STRINGS,  2) CATEGORIZE,  3)  END" 5  A 

ON  A  GOTO  60,  200,  300 

PRINT  "ENTER  STRINGS  WITH  KEYBOARD 

INPUT  A* 

IF  A*=  "END"  THEN  40 

PRINT  #  -1,  A*:  '  STORES  DATA  TO  CASSETTE 

GOTO  65 

INPUT  "ENTER  KEYWORD  " ",  B* 

INPUT  "ENTER  NUMBER  OF  FILES  TO  BE  SEARCHED' 
"REWIND  TAPE  TO  STARTING  POSITION" ",  A 

=  i  to  z  ; 


A*  'INPUTS  DATA  FROM  CASSETTE 


INPUT 
FOR  C 
INPUT  # 

IF  Bt  =  LEFT* (A*, LEN <B*> ) THEN  PRINT  A* 
NEXT  C 

PRINT:  PRINT 
GOTO  40 
END 


10 


A  RECIPE  INDEX  AND  CALCULATOR 

A  collection  of  your  favorite  recipes  can  be 
stored  on  your  computer  for  rapid  and  selective 
retrieval.  A  list  of  the  characteristics  of  each  recipe 
could  be  included  (for  example,  time  required  for 
preparation,  hot  or  cold,  number  served,  meal 
(dinner,  lunch,  or  breakfast),  expense,  and 
calories).  Using  these  characteristics,  the  compu- 
ter could  index  recipes  and  print  lists  of  recipes 
with  a  selected  characteristic  for  a  special  occasion. 

A  recipe  calculator  could  change  the  amounts 
of  each  ingredient  so  that  the  proper  amount  of  the 
recipe  will  be  made  for  a  given  number  of  people.  A 
simple  recipe  calculator  subroutine  is  presented  in 
Listing  1-6.  It  can  be  used  alone  or  can  be  incorpo- 
rated in  a  recipe  database  program. 

If  the  costs  for  various  ingredients  were  stored 
in  your  computer,  the  cost  of  a  given  recipe  could  be 
instantaneously  computed;  allowance  would  also  be 
made  for  the  number  of  persons  to  be  served.  This 


type  of  program  could  be  especially  useful  to  those 
with  a  sideline  or  fulltime  bakery  or  catering  ser- 
vice, as  the  costs  for  any  recipe  for  any  number  of 
people  can  be  quickly  estimated. 

A  sample  field  of  information  for  one  recipe  is 
below: 


ATLO 

AF, 

1.5 

lb.gr.  beef*  lcup 

milk 

*.5cuponion*egg, 

name 

of  item 

no. 

abbreviated 

servings. 

ingredients 

350 

1.5  hr.,          Bill's  favorite 

oven 

temp. 

bake  time 

comments 

A  program  to  store  information  used  in 
selecting  and  mixing  drinks  for  instant  retrieval 
could  be  created.  Such  a  program  could  even  store 
pictures  of  the  size  and  shape  glasses  to  use  with 


Listing  1-6:  The  Recipe  Calculator  Program 

10  REM  RECIPE  CALCULATOR 

20  REM  COULD  BE  IMPROVED  TO  CONVERT  UNITS  OF  MEASUREMENT  (E.G.  PI 

NTS  TO  QUARTS) 

30  INPUT  "HOW  MANY  SERVINGS  IS  THE  ORIGINAL  RECIPE  INTENDED  FOR"; 

SI 

40  INPUT  "HOW  MANY  SERVINGS  ARE  TO  BE  PREPARED" ;S 2 

50  R=S2/S1 

60  N=l 

70  PRINT 

80  PRINT  "ENTER  THE  NAME  OF  EACH  INGREDIENT,  THE  AMOUNT,  THE 

MEASURE  (E.G.  MILK,  1, PINT)  ."  .-PRINT 

85  PRINT  "USE  DECIMAL  NUMBERS  FOR  ALL  AMOUNTS,  SUCH  AS  '1.5  CUPS 

RATHER  THAN  1  1/2  CUPS":PRINT 

90  PRINT  "-ENTER  'END,!,!1  WHEN  FINISHED" 

100  INPUT  A$(N),B(N),C$(N) 

110  IF  A$(N)="END"  OR  A$(N)="end"  THEN  130 

120  N=N+l:GOTO  100 

130  FOR  X=l  TO  N 

135  IF  A$(X)="END"  THEN  160 

140  PRINT  A$(X),R*B(X),C$(X) 

150  NEXT  X 

160  PRINT 

165  INPUT  "PRESS  <ENTER>  TO  END";EN$ 

170  END 
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each  drink.  The  computer  could  also  suggest  an 
appropriate  cheese  to  accompany  a  selected  wine. 

ITINERARY  ASSISTANT 

A  list  of  appointments,  deadlines,  and  various 
tasks  could  be  stored  in  a  computer  and  displayed  in 
a  specified  format  to  assist  you  with  your  itinerary. 
The  electronic  memorandum  program  may  be  used 
for  this  task.  Another  format  could  be  that  of  a 
calendar;  each  day-block  would  be  filled  with  things 
to  do.  Is  there  something  you  must  do  periodically, 
but  often  forget?  Program  the  computer  to  au- 
tomatically remind  you  each  time. 

A  program  could  also  printout  a  daily  appoint- 
ment calendar  of  your  custom  design.  It  could  in- 
clude beginning  and  ending  times,  time  intervals, 
and  provisions  for  recording  expenses,  and  com- 
ments. Incorporate  the  day-of-the-week  program 
found  in  this  chapter. 

The  professional  may  use  a  more  sophisticated 


program  for  the  purposes  of  time  billing  for  clients. 
The  computer  can  also  be  used  as  a  medication 
reminder,  signaling  with  an  audible  alarm,  for  those 
on  complex  therapeutic  regimens. 

PHONE  TIMER 

When  you  are  making  long  distance  phone 
calls,  keeping  track  of  the  elapsed  time  can  save  you 
a  considerable  amount  of  money.  Usually,  the  first 
one  or  three  minutes  is  charged  a  flat  rate,  but  for 
the  remainder  of  the  call  the  charges  are  updated  by 
the  minute.  A  countdown  timer  that  makes  use  of  a 
timing  loop,  for  example  FOR  X  =  1  to  500:  NEXT 
X  (which  requires  approximately  1  second),  can 
display  the  amount  of  time  remaining  until  the  next 
charge.  Also,  a  record  could  be  kept  of  the  number 
called  and  the  cost  for  the  call,  for  use  with 
income-tax  deductions  or  for  comparison  with  tele- 
phone bill.  The  program  in  Listing  1-7  will  time 
your  calls  and  keep  track  of  the  charges. 


Listing  1-7:  The  Telephone  Call  Timer  Program 


10  REM  LONG  DISTANCE  TELEPHONE  CALL  TALLY 
15  KEY  OPF:CLS 

INPUT  "NEED  TELEPHONE  TIPS";A$ 

IF  A$=nYES"  THEN  300 

PRINT  "TELEPHONE  COST  TALLY" 

INPUT  "IS  THIS  AN  OPERATOR  ASSISTED  CALL";A$ 

IP  A$="YES"  THEN  0=1  ELSE  O=0 

INPUT  "ENTER  INITIAL  FLAT  RATE";B 

INPUT  "ENTER  CHARGE  PER  ADDITIONAL  MINUTE" ;C 

INPUT  "ENTER  DISCOUNT  AS  A  PERCENTAGE*" , D:D=100-D 
D=D*.01:IF  D=0  THEN  D=l 
110  PRINT  "TO  BEGIN  TIMING  PRESS  'ENTER'" 
120  PRINT  "TO  END  TIMING  PRESS  SPACE  BAR" 
130  INPUT  A$ 
135  CLS' CLEARS  SCREEN 

140  LOCATE  4,1: PRINT  "ELAPSED  MIN", "CURRENT  COST" , "SECONDS  TO  ADD 
CHARGE" ; 
150  S=60:B1=B*D 
160  LOCATE  6,1:PRINT  T,B1,S; 

165  REM  LINE  170  ACTS  AS  A  TIMING  LOOP;  ADJUST  TO  YOUR  BASIC 
170  FOR  X=l  TO  1050:NEXT:Q$=INKEY$:IF  Q$<>""  THEN  230 
S=S— 1 

IF  S=0  THEN  T=T+1:S=60:ELSE  160 
IF  (0=1)  AND  (T<3)  THEN  Bl=Bl+B*D:GOTO  160 
B1=B1+C*D 


20 
30 
40 
50 
60 
70 
80 
90 
100 


180 
190 
200 
210 
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220  Q$=INKEY$:IF  Q$=""  THEN  GOTO  160 

230  IF  Q$=CHR$(32)  THEN  INPUT  "PRESS  ENTER  TO  END",A$:END 

240  GOTO  180 

300  PRINT  "THE  PLAT  RATE  FOR  OPERATOR  ASSISTED  CALLS  IS  FOR  THE  FI 

RST" 

310  PRINT  "3  MIN  AND  FOR  THE  FIRST  MIN  ON  DIRECT-DIAL  CALLS" 

320  PRINT  "DISCOUNT  TIMES  FOR  CALLING  ARE:" 

330  PRINT  "60%:  11PM-8AM  NIGHTLY/8AM  SATURDAY  THROUGH  5  PM  SUNDAY 

340  PRINT  "35%:  5PM=11  MONDAY  THROUGH  FRIDAY/5PM-11PM  SUNDAY 

345  REM  CHECK  WITH  YOUR  LONG  DISTANCE  PROVIDER  FOR  CORRECT  FIGURES 

350  PRINT:GOTO  40 


TELEPHONE  FILE, 

DIALER,  AND  ANSWERING  MACHINE 

Listings  of  emergency  and  frequently  used 
telephone  numbers  could  be  stored  if  the  list  is 
sufficiently  long  to  warrant  computer  search 
capabilities. 

The  data  strings  used  to  store  this  information 
could  be  formatted  as  follows: 


businesses  with  large  customer  files. )  Additionally, 
the  computer  could  print  a  short  "hello"  note  on  the 
back  of  each  card.  The  same  idea  could  be  applied  to 
producing  an  invitation  list  for  a  party  or  meeting. 
Similarly,  a  list  of  dates  of  birthdays  and  an- 
niversaries could  be  stored  and  each  month  could 
remind  you  of  the  important  dates  for  the  upcoming 
month. 


HOSPITAL, 

identifier 


AMBULANCE, 
additional 
related  identifier 
(to  cross-reference) 


643-1998  *  643-1997 
tel.  numbers 

For  those  with  a  hardware  bent,  the  addition  of 
a  pulse  or  tone  dialing  circuit  for  a  modem  with 
automatic  dialing  capability  could  allow  a  computer 
to  search  and  then  automatically  dial  a  desired 
number.  In  connection  with  a  burglar/security 
alarm  system,  the  computer  could  be  instructed  to 
dial  the  police  or  fire  departments  and  deliver  a 
tape-recorded  message.  You  could  also  construct  a 
computer-controlled,  programmable  telephone 
answering  machine  with  capabilities  far  exceeding 
those  on  the  market. 

GREETING  CARD/INVITATION  LIST 

A  mailing-list  program  could  be  used  to  ad- 
dress your  Christmas  greeting  cards.  If  your  list  is 
large  enough,  the  computer  could  sort  zip  codes, 
allowing  you  to  send  your  cards  under  the  bulk  mail 
rate.  (This  would  probably  only  be  practical  for 


PERSONAL  TIME  MANAGEMENT  SYSTEM 

A  personal  time  management  system  would 
assist  you  in  planning  the  most  effective  schedule 
for  completing  a  list  of  tasks.  Input  could  include  the 
description  of  each  goal,  the  priority  of  that  goal 
(using  A,  B,  or  C  to  represent  categories  of  impor- 
tance) and  the  deadline  date.  The  program  could 
use  PERT  Program  Evaluation  and  Review 
Technique  or  critical  path  analysis  to  plan  and  out- 
put a  schedule  most  evenly  distributing  the  work 
load.  PERT  is  described  in  numerous  computer 
programming  texts  and  PERT  programs  are  avail- 
able for  many  personal  computers.  Many  people 
have  found  that  they  can  accomplish  much  more  if 
they  make  schedules  and  deadlines  for  themselves; 
PERT  analysis  will  make  that  all  more  simple. 

DECISION  MAKER 

Complex  decision  making  may  be  facilitated 
through  the  use  of  the  computer.  In  the  program  in 
Listing  1-8,  the  computer  first  requests  you  to 
enter  a  list  of  the  factors  involved  in  making  a 
decision.  Next,  you  are  asked  to  rate  the  relative 
importance  of  each  of  these  factors  on  a  scale  of  ten. 
Finally,  for  each  possible  outcome  to  the  decision, 
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you  are  asked  to  rate  the  favorability  of  each  factor  Police  and  fire  protection:  are  they  adequate 

on  a  scale  of  ten.  This  data  is  then  analyzed,  and  the  for  the  area? 

outcome  with  the  highest  "favorability"  score  for  Schools:  are  the  schools  your  children  will 

the  most  important  factors  is  the  one  chosen  as  the  attend  nearby? 

final  decision.  Hospital:  is  there  a  medical  center  nearby? 

The  most  favorable  decision  will  have  the  Hazards:  are  there  hazards  such  as  oil  tanks  or 
highest  score,  computed  by  summing  the  "rate  of  streams  that  might  overflow? 

favorability"  multiplied  by  the  relative  importance  Recreation:  are  there  suitable  facilities  within 
for  each  factor.  walking  distance? 

For  example,  if  you  had  several  locations  in  Traffic:  are  the  streets  quiet  and  safe? 

mind  for  building  a  home  and  could  not  come  to  a  Transportation:  is  public  transportation  avail- 
decision,  you  could  form  the  following  chart  of  fac-  able? 

tors  for  making  the  decision;  these  factors  would  be  Lay  of  land  and  landscaping:  is  the  land  well- 
inputted  to  the  decision-making  program.  drained  and  not  subject  to  erosion? 

Shopping:   are  there  adequate  facilities  Water:  is  there  an  adequate  pressure  and  is  it 

nearby?  drinkable? 

Churches:  are  they  available  and  convenient?  Nuisances:  are  there  nearby  sources  of  exces- 
Neighbors:  are  they  likely  to  be  compatible  sive  noise,  smoke,  soot,  dust,  or  odors 

with  your  lifestyle?  that  will  degrade  your  environment? 


Listing  1  -8:  The  Universal  Decision  Making  Program 

10  PRINT  "THE  UNIVERSAL  DECISION  MAKING  MACHINE" 

15  CLEAR  5000: REM  THIS  COMMAND  CLEARS  STRING  SPACE  AND  IS  OPTIONAL 

WITH  THE  IBM  PC 

20  DIM  A$(100),B(100),C(100),D$(100) 

30  INPUT  "ENTER  THE  NUMBER  OF  FACTORS  USED  IN  MAKING  THE  DECISIO 

N";NUM 

40  PRINT  "ENTER  FACTORS  AND  RELATIVE  IMPORTANCE  ON  SCALE  OF  TEN:" 

50  FOR  X=l  TO  NUM 

60    PRINT  "#";X;"  ";  .-INPUT  A$  (X)  ,B(X) 

70  NEXT  X 

80  INPUT  "ENTER  NUMBER  OF  POSSIBLE  OUTCOMES  ",X 

90  PRINT  "ENTER  NAME  OF  EACH  OUTCOME:" 

100  FOR  1=1  TO  X 

110    PRINT  "#";I;"  ";: INPUT  D$(I) 

120  NEXT  I 

130  PRINT  "NOW,  LET'S  RANK  EACH  FACTOR  FOR  EACH  POSSIBLE  OUTCOME:" 

140  FOR  1=1  TO  X 

150    PRINT  "FOR  OUTCOME  #";I;"  ";D$(I);",n 

160    PRINT  "RANK  THESE  FACTORS  ON  A  SCALE  OF  TEN:" 

170    FOR  J=l  TO  NUM 

180     PRINT  A$( J) ;: INPUT  R 

185    C(I)=C(I)+B(J)*R 

190    NEXT  J 

200  PRINT 

210  NEXT  I 

220  PRINT 
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230 

PRINT  " 

RANKINGS  OF 

OUTCOMES 

ARE 

(HIGHEST 

RANKING= 

=BEST 

DECISIO 

N): 

ii 

240 

FOR  1=1 

TO  X 

250 

PRINT 

D$(I) 

,C(I) 

260 

NEXT  I 

270 

INPUT  " 

PRESS 

ENTER 

TO 

END", 

A$ : END 

If  this  process  is  still  too  complex,  try  this 
program: 

5     PRINT  "THE  DECISION  IS:" 
10     X  =  RND  (0):  IFX  <  .5  PRINT  "NEGATIVE" 
ELSE  FIRMATIVE" 


If  you  need  help  in  making  a  decision  that  many 
people  have  to  make,  at  least  once  in  a  lifetime,  you 
may  want  to  use,  the  program  in  Listing  1-9,  which 
determines  the  economic  incentive  for  trading  off  a 
gas  guzzling  car  for  a  new,  more  economical  car 
sooner  than  you  would  if  gas  prices  were  not  a 
factor. 

HEALTH 

Your  personal  computer  can  even  help  you 
maintain  your  health.  A  listing  of  the  caloric  or 
nutrient  content  of  various  foods  could  be  stored 
and  subsequently  referenced  for  determining  the 


nutritive  value  of  the  food  you  eat.  Additionally, 
data  on  the  sugar  or  salt  content  of  foods  could  be 
stored  for  the  diabetic  or  person  on  a  salt-free  diet. 
Of  course,  such  a  program  lends  itself  well  to  diet 
planning. 

The  "Nutritive  Value  of  Foods,"  Home  and 
Garden  Bulletin  No.  72,  Agricultural  Research 
Service,  is  an  excellent  source  of  nutritive  values 
for  all  foods  and  is  available  from  the  superinten- 
dent of  Documents,  U.S.  Govt.  Printing  Office, 
Washington,  D.C. -Stock  #001-000-03667-0.  It 
lists  the  water,  calorie,  protein,  fat,  carbohydrate, 
mineral,  and  vitamin  composition  of  all  foods. 

A  low-calorie  diet-planning  program  could 
compute  the  number  of  calories  you  use  per  day  (on 
the  basis  of  weight,  sex,  height,  and  activities).  Of 
course,  if  you  eat  more  calories  than  you  use  up  in 
energy,  you  build  up  reserves  in  the  form  of  fat. 
Thus,  weight  control  is  primarily  based  on  calorie 
balance.  The  amount  of  weight  you  could  lose  by 
either  reducing  intake  or  increasing  activities 


Listing  1-9:  The  Gas  Guzzler  Program 

5  DEFDBLA-Z 

10 

REM  SHOULD  YOUR 

GAS  GUZZLER 

GO? 

20 

REM  DETERMINES  THE  ECONOMIC 

INCENTIVE  IN  TRADING  OFF  A 

30 

REM  6AS  GUZZLER- 

FOR  A  MORE  ECONMICAL 

CAR- 

40 

INPUT  "ENTER 

NEW 

CAR'S  M.P.G 

CURRENT 

CAR'S  M.P.G"5R,M 

50 

INPUT "ENTER 

COS! 

■  OF  NEW  CAR 

IN  DOLLARS" 5 C 

60 

INPUT "ENTER 

AVERAGE  NO.  OF  MILES  YOU 

DRIVE  PER  YEAR" 5 D 

70 

INPUT "ENTER 

CURRENT  PRICE  PER  GALLON 

OF  GASOLINE" 5 P 

80 

R=R/(R-M) :Y= 

=<C*R*M)/<D#P) 

60C 

)  PR I NT: PR I NT 

""IF 

"$Y5 "  YEARS 

IS  GREATER  THAN  THE  NUMBER 

OF 

YEA 

RS 

YOU" 

61C 
TH" 
62C 

PR I NT "WERE 

PLANNING  ON  KEEPING  YOUR 

CAR,  YOU  SHOULD  STICK 

WI 

PR I NT "YOUR 

GAS 

GUZZLER  FOR 

THE  TIME 

YOU  NORMALLY  WOULD 

HAVE" 

63C 

PR I NT "KEPT 

IT. 

OTHERWISE,  YOU  SHOULD  TRADE  IT  IN  NOW. " 

64C 

END 
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Table  1-1.  Energy  Consumption  Table. 


Intensity 

Heart 

Respiration 

Energy  Consumption 

of  Exercise 

(Beats  Minute) 

(Breaths/Minute) 

(Calories/Hour) 

maximum 

200 

50 

1440 

very 

150 

30 

1008 

heavy 

140 

25 

864 

fairly  heavy 

130 

20 

720 

moderate 

120 

18 

576 

light 

110 

16 

432 

very  light 

100 

14 

288 

resting 

70 

10 

100 

would  be  mathematically  calculated.  The  following 
data  should  be  helpful  in  writing  a  program  to  help 
you  lose  weight  or  maintain  health  through  exer- 
cise. 

A  complete  nutritional  analysis  program  would 
allow  you  to  input  the  types  and  amounts  of  foods 
you  have  eaten  during  the  day,  would  compute  the 
total  intake  of  proteins,  carbohydrate,  fats,  fiber, 
vitamins,  and  minerals,  and  would  determine  your 
average  daily  intake  of  each  per  day.  Similarly,  it 


would  compute  your  average  energy  expenditure 
(see  Table  1-1)  and  then  subtract  this  from  your 
average  daily  nutrient  intake  to  determine  your 
calorie  balance  and  to  compare  your  intake  with  the 
recommended  daily  allowances  for  your  age,  sex, 
and  weight  (see  Table  1-2).  Thus,  areas  for  im- 
provement could  be  easily  identified.  A  diet  plan 
could  then  be  determined  to  achieve  these  im- 
provements. 

One  hobbyist  uses  a  computer  to  determine  his 


Mean  heights  and  weights  and 

recommended  energy  intake 

Category 

Age 

Weight 

Height 

Energy  needs  (with  range) 

(years) 

(kg) 

(lb) 

(cm) 

(in) 

(kcall)               (MJ) 

Infants 

0.0-0.5 

2 

13 

60 

24 

kg  x  115(95-145)kg  x  .48 

0.5-1.0 

9 

20 

71 

28 

kg  x  105  (80- 135)  kg  x  .44 

Children 

1-3 

13 

29 

90 

35 

1300  (900-1800)      5.5 

4-6 

20 

44 

112 

44 

1700  (1300-2300)    7.1 

7-10 

28 

62 

132 

52 

2400  (1650-3300)  tO.1 

Males 

11-14 

45 

99 

157 

62 

2700  (2000-3700) Tl  .3 

15-18 

66 

145 

176 

69 

2800  (2100-3900)  11.8 

19-22 

70 

154 

177 

70 

2900  (2500-3300)  12.2 

23-50 

70 

154 

178 

70 

2700  (2300-3100)  11.3 

51-75 

70 

154 

178 

70 

2400  (2000-2800)  10.1 

76+ 

70 

154 

178 

70 

2050(1650-2450)    8.6 

Females 

11-14 

46 

101 

157 

62 

2200(1500-3000)    9.2 

15-18 

55 

120 

163 

64 

2100(1200-3000)    8.8 

19-22 

55 

120 

163 

64 

2100(1700-2500)    8.8 

23-50 

55 

120 

163 

64 

2000  (1600-2400)    8.4 

51-75 

55 

120 

163 

64 

1800  (1400-2200)    7.6 

76- 

55 

120 

163 

64 

1600(1200-2000)    6.7 

Pregnancy 

+  300 

Lactation 

+  500 

One  gram 

of  Carbohydrate  = 

4  calories 

One  gram 

of  Fat  =  9  calories 

One  gram 

of  Protein  = 

=  calori 

es 

Table  1-2.  Recommended 
Caloric  Intake  Table. 
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pulse  rate  and  lead  him  through  an  exercise  ses- 
sion, acting  as  the  coach  and  timer.  Along  similar 
lines,  another  hobbyist  computes  the  aerobic  points 
he  earns  in  bicycling. 

A  general  purpose  data  plotting  subroutine 
could  graph  morning  resting  pulse  on  the  X  axis 
versus  minutes  run  previous  day  on  the  y  axis, 
miles  run  versus  subjective  feeling  at  end  of  day,  or 
many  other  inputs  to  allow  you  to  see  where  you've 
been  and  where  you  are  going! 

Listing  1-10  is  a  simple  program  that  will  help 
you  calculate  your  pulse  rate. 

The  beginning  runner  is  often  unsure  how  fast 
he  should  run.  Pulse  taking  can  be  helpful  to  assure 
beginners  that  they're  doing  the  right  amount  of 
work— not  too  much  or  too  little.  First,  determine 
your  base  training  pulse  using  the  formula  [220- 
(your  age)]  x  .  65.  Anyone  who  makes  sure  that  his 
or  her  pulse  does  not  rise  above  this  value  is  in  the 
safety  zone  where  the  heart  is  being  strengthened 
rather  than  overtaxed. 

SHORTHAND  TRANSLATOR 

You  could  develop  a  shorthand  system  that 
your  computer  could  be  programmed  to  understand 
and  translate.  The  system  could  be  similar  to  that 
used  by  court  reporters,  in  which  a  single  key  rep- 
resents a  word  or  part  of  a  word.  In  this  manner,  you 
could  quickly  commit  your  thoughts  to  paper,  and 
the  computer  could  quickly  analyze  the  shorthand 
and  print  the  English  equivalent. 

The  basic  stenographer's  character  and  word 
assignment  is  given  in  Table  1-3. 


In  a  like  manner,  a  machine  language  program 
could  translate  a  single  keystroke  into  a  full  com- 
mand. For  instance,  such  a  program  could  translate 
a  CONTROL  P  or  shifted  P  to  the  word  PRINT, 
thereby  facilitating  the  input  of  a  program. 

KITCHEN  INVENTORY 

A  file  of  all  food  items  on  hand  (pantry  inven- 
tory) could  be  useful  in  determining  whether  or  not 
a  given  recipe  can  be  prepared.  As  each  item  is 
added  or  subtracted,  the  transaction  would  be  en- 
tered into  the  computer.  If  a  desired  level  of  inven- 
tory is  specified,  the  computer  could  automatically 
print  out  a  shopping  list  of  items  that  are  below 
desired  quantity  levels.  An  inventory  program  of 
this  type  would  be  best  suited  for  the  gourmet  cook 
who  must  have  a  wide  variety  of  seasonings  and 
other  ingredients  on  hand.  The  inventory  of  a  wine 
collection  or  food  in  the  deep  freezer  may  also  be 
maintained. 

RATING  CALCULATIONS 

An  equation  to  determine  a  rating  for  a  par- 
ticular stock,  car,  horse,  home,  or  any  item  of  value 
could  be  computerized  if  it  is  referred  to  often  or  is 
complex.  For  example,  the  horse  racing  fan  could 
use  the  following  empirically  derived  equation  to 
determine  an  objective  rating  for  a  particular  horse: 

Rating  =  (W  +  P/3  +  S/6)  x  100/R  +  E/850 
where  W  =  the  number  of  wins 
P  =  the  number  of  places 
S  =  the  number  of  shows 


Listing  1-10 

The  Pulse  Rate  Program 

10 

REM  CALCULATION  OF  PULSE  RATE  *  (BEATS/MI N) 

15 

INPUT 

"ENTER  YOUR  ABE 

" ;  YA 

20 

PRINT' 

'HIT  ANY  KEY  FOR 

EACH 

BEAT":X  = 

1."  N 

=  0 

.  25 

INPUT 

"PRESS  ENTER  TO 

BEBIN"5EN* 

30 

A*  =  ] 

CNKEY*: IF  X=1450 

THEN 

60 'CHANGE 

VALUE 

FOR  YOUR  COMPUTER'S 

SPEED 

40 

IF  A* 

=  ""  THEN  X  =  X 

+  l: 

BOTO  30 

50 

N  =  N 

+  1 :  BOTO  30 

60 

PRINT- 

THE  NUMBER  OF  BEATS/MIN  =";N*  2 

70 

PRINT 

"TRAINING  PULSE 

—  II  M 

—  3 

INT  ( (220- 

-YA)*. 

65) 
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Character 

Word 

Suffix 

Character 

Word 

Suffix 

A 

and 

able 

V 

very 

ver 

B 

been 

bility 

w 

with 

ward 

C 

can 

cial 

X 

experience 

D 

down 

day 

Y 

you 

E 

even 

ent 

z 

the 

zation 

F 

from 

ful 

0 

zero 

G 

good 

ght 

1 

one 

H 

have 

hood 

2 

two 

1 

into 

ing 

3 

three 

J 

just 

4 

four 

K 

know 

5 

five 

L 

like 

less 

6 

six 

M 

more 

ment 

7 

seven 

N 

not 

ness 

8 

eight 

0 

other 

ous 

9 

nine 

P 

people 

! 

hundred 

Q 

quite 

thousand 

R 

right 

rent 

# 

million 

S 

said 

self 

$ 

dollar 

T 

that 

tion 

% 

percent 

U 

united 

ugh     1 

c 

cent 

Table  1-3.  Basic  Steno 
Character  Assignment  Chart. 


R  =  the  number  of  races 

E  =  the  amount  of  earnings  in  dollars 
Rating  equations  are  empirically  derived  or 
are  determined  by  finding  the  statistical  correlation 
between  a  set  of  factors  and  the  outcomes  that  the 
factors  influence. 

INVENTORY  OF  POSSESSIONS 

A  file  of  your  personal  property  could  be  stored 
in  computer  format  for  insurance  purposes  or  for 
determining  your  net  worth.  A  database  pro- 
gram could  record  the  date  of  purchase,  the  place  of 
purchase,  the  length  of  the  warranty,  description  of 
item,  price,  serial  number,  and  model  number.  For 
instance,  you  could  set  up  a  simple  database  for 
tracking  possessions  by  using  these  four  fields: 
date,  store,  item,  and  price.  This  information  could 
be  entered  from  sales  receipts  or  from  your 
checkbook.  At  the  end  of  the  year,  the  database 
could  be  printed  and  a  backup  disk  or  cassette  put  in 
safe  keeping.  This  could  save  you  $10,000  or  more 
in  the  event  of  a  major  disaster,  because  you  will 
have  excellent  documentation  of  what  you've 
owned. 

The  computer  may  also  be  useful  in  comparing 
various  insurance  policies  to  determine  which  plan 


offers  what  you  need  at  the  lowest  cost.  Profession- 
ally prepared  insurance-planning  programs  are 
available  for  a  variety  of  personal  computers. 

The  advantage  to  using  a  personal  computer  is 
that  items  may  be  easily  added,  deleted,  or 
categorized,  and  a  cassette  or  floppy  disk  copy  of 
the  inventory  may  be  stored  in  a  safe-deposit  box.  If 
you  own  a  business,  use  this  type  of  program  to 
inventory  your  business  equipment. 

INDEX  TO  IMPORTANT  LITERATURE 

Your  favorite  lines  of  literature,  passages  from 
the  Bible,  quotations,  scientific  and  business  jour- 
nal references,  anecdotes,  and  other  literary  mis- 
cellanea could  be  collected,  categorized,  cross- 
referenced,  and  indexed  for  rapid  retrieval.  A 
specialized  database  program  could  be  used  for  this 
purpose;  see  the  database  demonstration  program 
at  the  end  of  this  chapter.  Sophisticated  database 
programs  are  commercially  available  for  searching 
the  King  James  Bible  for  selected  passages 
references. 

DAY  OF  THE  WEEK  CALCULATION 

Calculation  of  the  day  of  the  week  corre- 
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sponding  to  a  given  date  is  useful  to  the  busi- 
nessman, vacation  planners,  historians,  and  others. 
For  the  sake  of  curiosity,  some  have  found  amazing 
congruencies  between  the  days  on  which  U.S. 
Presidents  were  born  and  other  significant  events 
in  history. 

To  calculate  the  day  of  the  week  for  a  specific 
date  in  the  twentieth  century,  either  use  the  pro- 
gram in  Listing  1-11  or  use  the  following  formula: 

N  =  D+M+Y[(0.8(2M+1)]  +  [Y/4] 
where  D  —  day  of  the  month 

M  =  Month,  where  March  is  considered  the 
first  month,  April  the  second,  and  Feb- 
ruary the  twelfth 
Y  =  Last  two  digits  of  the  year 
[  ]  =  The  integer  part  of  the  result 

Next,  divide  the  sum  N  by  7.  The  remainder  from 
the  division  gives  the  day  of  the  week.  Count  0  as 
Sunday,  1  as  Monday,  and  so  on. 

Programs  to  calculate  the  date  of  Easter  for 
forthcoming  years  have  been  written,  and  this  re- 
mains an  interesting  programming  challenge; 
hint— incorporate  the  above  formula. 

A  simpler  program  could  calculate  the  day  of 
the  year  for  a  given  date;  the  businessman  may  find 
such  calculations  useful. 

FOOD  STORE  SHOPPING  AID 

Your  programmable  calculator  can  sum  and 


categorize  prices  and  types  of  items  as  they  are 
removed  from  the  shelf  at  the  supermarket.  Provi- 
sion could  be  made  for  categorizing  items  into 
meat,  groceries,  produce,  and  taxable  subdivi- 
sions. Additionally,  there  may  be  provisions  for 
multiple  entries,  unit  price  calculations  and  com- 
parisons, error  correction,  and  a  warning  if  a  preset 
cash  limit  has  been  exceeded.  Outputs  could  in- 
clude total  cost,  tax,  item  count,  and  subtotals  in 
each  category. 

COUPON  FILE 

For  those  who  have  the  money-saving  habit  of 
collecting  food  coupons,  a  computerized  list  of  your 
coupons  could  be  helpful.  Enter  each  coupon  by  its 
amount,  brand  name,  product  name,  and  location  in 
your  coupon  folders  or  envelopes.  Next,  enter  your 
shopping  list.  A  computer  search  between  your  list 
and  the  available  coupon  list  should  yield  a  roster  of 
coupons  that  may  be  used  and  where  each  one  is. 

Alternatively,  the  computer  could  store 
coupons  by  type  of  product,  using,  for  instance 
these  categories:  restaurants,  pasta  products, 
drinks,  cereals,  snacks,  meat,  poultry,  vegetables, 
fish,  condiments,  dairy  products,  baking  items,  pet 
food,  cosmetics,  paper  goods,  cleaning  products, 
medicine,  and  miscellaneous.  The  shopper  may  call 
up  the  list  of  coupons  within  a  category  to  select  the 
coupons  he  is  interested  in  and  find  out  which  brand 
name  each  one  is  filed  under. 


Listing  1-1 1 :  The  Day  of  the  Week  Program 

10  REM  CALCULATION  OF  THE  DAY  OF  THE  WEEK  CORRESPONDING  TO  A  GIVE 

N  DATE 

20  REM  APPPLICABLE  TO  ANY  DATE  IN  THE  20TH  CENTURY 

25  DEFINT  A 

30  INPUT"ENTER  THE  MONTH,  DAY,  YEAR  (MM, DD, YY) " ? M, D, Y 

40  IF  M  >2  THEN  M=M-2  ELSE  M=10+  M:Y=Y-1 

50  N=D+M+Y+INT(.8*(2*(M+1) ) )+INT<Y/4) 

60  A=(N/7-INT(N/7> >*7.1 

70  FOR  X=0  TO  6 

80  READ  A*(X) 

90  NEXT  X 

100  PRINT"THE  DAY  IS  "5 A* (A) 

110  END 

1 20  DATA  SATURDAY , SUNDAY , MONDAY , TUESDAY , WEDNESDAY , THURSDAY , FR I DAY 
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HOME  PLANNING 

An  interesting  program  could  be  written  to 
help  a  family  design  a  house  to  fit  their  needs;  the 
expense  of  a  house  certainly  justifies  an  in-depth 
analysis  of  the  design  before  construction  is 
started.  You  could  use  video  graphics  to  draw  and 
transform  basic  house  plans  (preferably  with  a  light 
pen). 

Square  footage  could  be  calculated  with  the 
following  guidelines  in  mind:  the  minimum  square 
footage  should  equal  the  number  of  family  members 
times  200;  the  desirable  square  footage  should 
equal  the  number  of  family  members  times  300.  An 
activity  list  such  as  the  one  below  could  be  included 
to  ensure  that  the  family's  activities  will  not  conflict 
and  that  there  will  be  provisions  for  all  activities. 
The  program  could  request  the  user  to  enter  the 
activities  that  are  to  be  done  in  each  room  and  the 
times  involved;  conflicts  could  thus  be  analyzed, 
and  the  plans  could  be  altered  accordingly.  The 
following  activities  could  be  included  in  the  pro- 
gram: 

Group  Activities 

1.  Lounging— indoors  and  outdoors 

2.  Television  watching 

3.  Listening  to  stereo,  tapes,  or  radio 

4.  Playing  a  musical  instrument 

5.  Meals 

6.  Children's  play  areas 

Social  Activities 

1.  Holding  a  meeting  in  the  home 

2.  Children's/adult's  games 

3.  Viewing  movies/slides 

4.  Visiting  with  guests 

Work  Activities 

1.  Meal  preparation  and  clean-up 

2.  Household  business 

3.  Food  preparation 

4.  Laundry 

5.  Ironing,  sewing,  or  drying  clothes 

6.  Workshop  area 

Private  Areas 

1.  Study  of  reading  areas 


2.  Grooming  or  dressing  facilities 

Traffic  patterns  and  storage  requirements 
could  also  be  analyzed. 

Storage  requirements: 

Bedrooms— minimum  of  4'  x  6'  x  24"  closet 

space/person 
Utility  areas— about  36"  wide  and  16"  deep 
Kitchen— approximately  10  linear  feet  of  base  and 
wall  cabinets 

PRIVATE  INFORMATION  STOREHOUSE 

Almost  everyone  has  some  private— financial 
information,  diaries,  or  important  numbers— that 
they  would  like  to  keep  more  securely  than  in  a 
filing  cabinet.  A  program  could  be  written  to  store 
this,  information  in  coded  form  so  that  it  could  only 
be  retrieved  by  someone  with  the  proper  password. 
Copies  of  such  data  could  be  stored  in  a  safe-deposit 
box. 

GENERAL  PURPOSE  CLOCK  OR  TIMER 

If  your  computer  is  equipped  with  a  real  time 
clock,  it  could  be  used  as  an  electronic  timer  or  time 
controller  for  scientific  research,  sporting  events, 
or  other  applications  requiring  a  stopwatch.  The 
capabilities  that  a  computer  has  but  a  stopwatch 
doesn't  include  the  automatic  storage  and  printout 
of  selected  times  and  the  automatic  control  of  in- 
struments or  other  devices  that  must  be  turned  on 
or  off  at  given  times. 

Even  without  a  real  time  clock,  your  computer 
can  still  keep  track  of  elapsed  time  for  long  distance 
telephone  calls  or  act  as  a  simple  timer  for  applica- 
tions in  which  accuracy  is  not  a  major  factor.  When 
they  are  not  using  their  computers  for  more  practi- 
cal tasks,  some  hobbyists  have  transformed  them 
into  very  expensive  clocks,  with  graphic  displays  of 
hour  and  minute  hands,  digital  displays,  simulated 
sundials,  or  even  sand  timers.  Digital  watch  cir- 
cuits may  be  interfaced  with  computers  to  facilitate 
time  keeping. 

BLOOD  ALCOHOL  CONTENT 

It  would  be  a  good  idea  to  calculate  your  blood 
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Listing  1-12:  The  Blood  Alcohol  Content  Program 

10  REM  BLOOD  ALCOHOL  CONTENT^CALCULATOR 

15  REM  IN  TERMS  OF  7.  WEIGHT /VOLUME 

20  INPUT  "ENTER  THE  NUMBER  OF  OZ.  CONSUMED,  THE  PROOF  OF  THE  DRIN 

K"5  OZ,  P 

30  INPUT  "ENTER  YOUR  WEI6HT  IN  POUNDS" 5 W 

40  C  =  (OZ  *P*  .037)/W 

50  PRINT  "YOUR  ESTIMATED  BLOOD  ALCHOHOL  CONTENT  =  ";C 

60   PRINT 

70  IF  CO.05  THEN  PRINT  "A  LEVEL  BELOW  .05  IS  NOT  CONSIDERED  AS  I 

NTOXICATION. " 

80  IF  O.05  AND  C< . 1  THEN  PRINT  "A  LEVEL  BETWEEN  .05  AND  .1  IS 

CONSIDERED  BORDERLINE  INTOXICATION." 

90  IF  C>=.1  THEN  PRINT  "A  LEVEL  GREATER  THAN  .1  IS  CONCLUSIVE  INT 

OXICATION. " 

100  END 


alcohol  content  after  a  few  drinks,  before  attempt- 
ing to  drive.  The  formula  used  to  calculate  the 
percentage  alcohol  content  in  the  blood  is 


C   = 


OZ  .  p  .  0.037 
W 


where    C  =  blood  alcohol  content  in  %  wt/vol 
OZ  =  ounces  of  drink  consumed 
p  =  proof 
W  =  body  weight  (lbs) 

The  program  in  Listing  1-12  will  automatically  cal- 
culate your  blood  alcohol  content. 

CARPENTERS'  AND  MECHANICS'  HELPER 

Your  computer  can  expedite  the  numerous  cal- 
culations required  by  carpenters  and  mechanics 
when  they  perform  tasks  such  as  changing  the  di- 
mensions of  a  set  of  plans,  converting  anglo  to 
metric  measures  or  vice-versa,  and  estimating  the 
amount  of  in  many  other  situations  building  mate- 
rials needed. 

Some  useful  formulae  include 


1  inch 
1  foot 

1  yard 
1  mile 


3.281  feet 
1.0936  yards 
2.54  cm 
30.48  cm 
.3048 
.9144  m 
1609  m 
1.609  km 


Wall  paper  estimator 

8640 


N  = 


W  .  (H  +  R) 


P   = 


W.N 


where  N  =  the  number  of  strips  in  one  roll 
W  =  the  width  of  the  paper 
H  =  the  height  of  the  wall 
R  =  the  repeat  length  of  the  pattern 
P  =  the  number  of  double  rolls  needed 
S  =  the  width  of  the  wall  to  be  covered 

Concrete  block  estimator 


N  = 


H  .  L  .  1.25 
125 


Anglo/metric  conversions 

1  meter  =  39.37  inches 


where  N  =  the  number  of  blocks 
H  =  the  height  of  the  wall 
L  =  the  length  of  the  wall 
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Concrete  yardage  estimator 


tabs  on  amounts  spent. 


Y  = 


L.  W.  W.T 
324 


where  Y  =  the  volume  of  concrete  in  cubic  yards 
L  =  the  length  (ft.) 
W  =  the  width  (ft.) 
T  =  the  thickness  (in.) 


CAR  MAINTENANCE 

CALCULATIONS  AND  RECORD  KEEPING 

In  addition  to  calculating  and  recording  your 
car's  miles  per  gallon,  the  computer  could  keep 
track  of  mileage  statistics  and  signal  you  when  a 
periodic  check-up,  overhaul,  or  oil  change  is  neces- 
sary. For  people  having  the  privilege  of  deducting 
automotive  expenses,  the  computer  could  keep 


RAFFLE  TICKET  PRODUCER  AND  DRAWER 

If  your  organization  is  sponsoring  a  raffle 
drawing,  your  computer  could  print  out  serialized 
raffle  tickets  and  then  draw  the  winning  ticket  based 
on  a  random  number  generator. 

LIFE  EXPECTANCY  CALCULATOR 

Listing  1-13  presents  another  program  of 
interest  to  guests.  Your  life  expectancy  in  years  is 
calculated  on  the  basis  of  life  insurance  studies. 
This  program  is  interesting  to  run  with  data 
supplied  for  your  present  condition,  and  then  run 
with  data  about  yourself  assuming  you  had  kept 
your  New  Year's  resolutions  (stop  smoking,  lose 
weight,  and  so  on).  The  difference  in  years  is  often 
surprising. 


Listing  1-13:  The  Life  Expectancy  Calculation  Program 

10  REM  LIFE  EXPECTANCY  CALCULATOR 

20  REM  ESTIMATES  HOW  LONG  YOU  WILL  LIVE- 

30  REM  PROGRAM  IS  BASED  ON  SCIENTIFIC  DATA 

40  PR INT "LIFE  EXPECTANCY  CALCULATION  FOR  ADULTS  20-65  YRS.  OF  AGE" 

50  PRINT-TYPE  "1"  FOR  YES,   "2"  FOR  NO  TO  ANSWER  QUESTIONS" 

60  A=72 

70  INPUT "ARE  YOU  MALE" SB 

80  IF  B=1THEN  A=A-3  ELSE  A=A+4 

90  INPUT "DO  YOU  LIVE  IN  AN  URBAN  AREA-POPULATION 

100  IF  B=1THEN  A=A-2  ELSE  INPUT "DO  YOU  LIVE  IN  A 

<10,000";B:     IFB=1    THEN   A=A+2 

110  PRINT"  IF  YOU  WORK  BEHIND  A  DESK  TYPE  '  1 :'" 

120  INPUT  "IF  YOUR  JOB  REQUIRES  REGULAR,  HEAVY  PHYSICAL  LABOR  TYP 

E  '2' " ; B 

130  IF  B=l  THEN  A=A~3  ELSE  IF  B=2  THEN  A=A+3 
140  PRINT" IF  YOU  EXERCISE  STRENOUSLY  MORE  THAN 
WK  " 
150  INPUT "TYPE  '1 


>2  MILLION" ;B 
TOWN-  POPULATION 


1/2HR.  SESSIONS/ 


IF  YOU  DO  2-3  TIMES/WK.  TYPE  '2'  ELSE  TYPE 


"SB 
160 
170 
180 


IF  B=l  THEN  A=A+4  ELSE  IF  B=2  THEN  A=A+2 

INPUT  "DO  YOU  LIVE  WITH  A  SPOUSE  OR  FRIEND" ;B 

IF  B=l  THEN  A=A+5  ELSE  INPUT "HOW  MANY  DECADES  HAVE  YOU  LIVED 

WITHOUT  OTHERS  SINCE  25  YRS.  OLD"  S  Bs  A=A-B 

190  INPUT  "DO  YOU  SLEEP  MORE  THAN  TEN  HRS.  PER  NIGHT".?  B 

200  IF  B=l  THEN  A-A-4 

210  PRINT" IF  YOU  ARE  INTENSE,  AGGRESSIVE, 

220  INPUT" IF  YOU  ARE  EASY-GOING,  RELAXED, 

230  IF  B=l  THEN  A=A-3  ELSE  IF  B=2  THEN  A=A+3 


EASILY  ANGERED  TYPE'1: 
FOLLOWER  TYPE  '2'" SB 
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240  INPUT" IF  YOU'RE  HAPPY  TYPE  '  1 '  5  UNHAPPY  TYPE  '2"';B 

250  IF  B=l  THEN  A=A+1  ELSE  IF  B=2  THEM  A=A-2 

260  INPUT "HAVE  YOU  HAD  A  SPEED I NB  TICKET  WITHIN  THE  LAST  YEAR" 5 B 

270  IF  B=l  THEN  A=A-1 

280  INPUT "DO  YOU  EARN  MORE  THAN  $50, OOO/YR. " 5 B 

290  IF  B=l  THEN  A=A-2 

300  INPUT" IF  YOU 'ME  FINISHED  COLLEGE  TYPE  ' 1 ' ?  SRAD  SCHOOL  TYPE  ' 

O  ?  il  «  T2 
-i    f   JD 

310  IF  B=l  THEN  A=A+1  ELSE  IF  B=l  THEN  A=A+2 

320  INPUT" IF  YOU'RE  65  OR  OVER  AND  STILL  WORKING  TYPE  '  1 '" ;  B 

330  IF  B=l  THEN  A=A+3 

340  INPUT" IF  ANY  OF  YOUR  GRANDPARENTS  HAVE  LIVED  TO  85  TYPE  ' 1 '" ;  B 

350  IF  B=l  THEN  A=A+2:  INPUT"DID  ALL  4  LIVE  TO  BE  80";B:IF  B=l  TH 

EN  A=A+6 

360  INPUT"DID  EITHER  OF  YOUR  PARENTS  DIE  OF  STROKE/HEART  ATTACK  BE 
FORE  50" 5 B 
370  IF  B=l  THEN  A=A-4 

380  PRINT"HAVE  ANY  OF  YOUR  PARENTS  OR  BROTHERS/SISTERS  UNDER  50  H 
AD  A" 

390  INPUT "HEART  CONDITION,  CANCER,  OR  CHILDHOOD  DIABETES" ;B 

400  IF  B=l  THEN  A=A-3 

410  PRINT" IF  YOU  SMOKE:  >2  PACKS/DAY  TYPE  '1',  1-2  PACKS/DAY  TYPE 

420  INPUT"l/2-l  PACK/DAY  TYPE  '3'  ELSE  TYPE  '4"'SB 

430  IF  B=l  THEN  A=A-8  ELSE  IF  B=2  THEN  A=A-6  ELSE  IF  B=3  THEN  A=A 

440  INPUT"DO  YOU  DRINK  THE  EQUIVALENT  OF  1/4  BOTTLE  LIQUOR/DAY" 5 E 
450  IF  B=l  THEN  A=A-1 

460  PRINT" IF  YOU  ARE  OVERWEIGHT  BY  >50  LBS.  TYPE  '1',  30-50  LBS. 
TYPE  ' 2 ' " 

470  INPUT" 10-30LBS.  TYPE  '3'  ELSE  TYPE  '4"';B 

480  IF  B=l  THEN  A=A-8  ELSE  IF  B=2  THEN  A=A-4  ELSE  IF  B=3  THEN  A=A 

490  PRINT" IF  YOU'RE  MALE  AND  HAVE  AN  ANNUAL  CHECK-UP  TYPE  '1'  AND 
IF" 

500  INPUT  "FEMALE  TYPE  '1'  IF  YOU  SEE  A  GYNECOLOGIST  ANNUALLY" ",  B 
A=A+4  ELSE  IF  P   510  IF  B=l  THEN  A=A+2 

520  PRINT" IF  YOU'RE  BETWEEN  30-40  TYPE  '1',  40-50  TYPE  '2',  50-60 
TYPE" 

530  INPUT" '3',  >70  TYPE  '4"'$B 

540  IF  B=l  THEN  A=A+2  ELSE  IF  B=2  THEN  A=A+3  ELSE  IF  B=3  THEN 

THEN  A=A+5 

550  PRINT"" 

560  PRINT"YOUR  LIFE  EXPECTANCY  IS  ";A5"  YEARS." 


DATABASE  DEMONSTRATION  many  items  on  a  cassette  tape  or  floppy  disk  and 

Many  of  the  program  ideas  described  in  this  retrieve  selected  information, 
chapter  can  be  implemented  with  a  general  purpose  The  usual  method  of  storing  data  on  a  cassette 

database  computer  program.  This  type  of  program  or  disk  involves  the  use  of  one  string  of  information 

should  be  able  to  store  information  pertaining  to  containing  several  fields  of  separate  data.  Afield  is 
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an  item  of  data.  For  example,  a  string  containing 
five  fields  might  look  like  this: 

Boolean  Algebra*Byte  Magazine*25*Schwartz* 
Feb  1978 

The  first  field  signifies  the  title  of  the  item  (in  this 
case  a  magazine  article);  all  of  the  strings  to  be 
stored  would  be  formatted  in  the  same  way,  with 
the  title  of  the  item  in  the  first  field.  Also,  a  limit  is 
usually  set  on  the  length  of  any  field  (so  that  the  data 
will  fit  neatly  on  a  cassette  or  disk).  If  the  informa- 
tion in  one  field  does  not  contain  enough  characters 
to  fill  the  allocated  space,  extra  spaces  are  added. 
The  longer  the  fields,  the  fewer  records  the  disk  or 
cassette  can  hold.  You'll  learn  to  make  fields  as 
short  as  possible  when  you  are  dealing  with  a  large 
data  base. 

The  second  field  in  the  example  above  contains 
the  name  of  the  source  of  the  item.  The  third, 
fourth,  and  fifth  fields  contain  the  page  number, 


author,  and  issue  date  respectively.  An  adequate 
database  program  should  be  able  to  search  through 
many  such  strings  and  output  those  that  contain 
items  you  want.  For  example,  you  can  store  an 
index  to  your  library  on  a  database  system  and 
subsequently  obtain  a  listing  of  all  the  references 
pertaining  to  the  stock  market  and  written  after  a 
specific  date.  You  would  simply  instruct  the  com- 
puter to  search  for  all  items  that  contain  stock  mar- 
ket in  a  certain  field  and  a  date  later  than  the  date 
specified  in  another  field.  Because  the  position  of 
each  field  in  all  strings  is  fixed,  the  computer  can 
search  through  a  string  (using  the  MID$  command, 
for  example)  to  the  beginning  of  the  proper  field: 
specific  information  can  easily  be  accessed  in  this 
manner. 

The  variety  of  commands  available  in  a 
database  management  program  are  summarized  in 
lines  1790-1850  in  the  program  in  Listing  1-14  and 
may  be  summoned  to  the  screen  by  typing  HELP  in 
response  to  COMMAND? 


Listing  1-14:  The  Database  Program 

100  REM  DATA  BASE  DEMONSTRATION  PROBRAM 

110  REM  MAY  BE  USED  TO  MAINTAIN  MAILING 

120  REM  INVENTORY,  ETC. 

130  REM  THE  COMMAND  'HELP'  PROVIDES  INSTRUCTIONS 

140  CLS: REM  'CLS'  CLEARS  THE  VIDEO  SCREEN 

150  REM  REQUIRES  ABOUT  15K  MEMORY.  INITIALIZED  FOR 

RECORDS  WITH  30  FIELDS  EACH 

160  CLEAR  6000."  REM  'CLEAR  6000'  R'ESERVES  6000  BYTES  FOR  STRINGS 

REM  ALTER  THESE  DIM  STATEMENTS  TO  ALLOW  FOR  MORE  RECORDS 

DIM  P* (30) , C* (31 ) , F (31 ) , M* (200) , D* (200) 

INPUT"SELECT:  1) BEGIN  ANEW,  2) LOAD  OLD  DATA  FILE"?V 

CLS  'CLEARS  SCREEN 
1620 
C*= " " : P* ( 0 ) = "BUFFER  EMPTY " : N=0 


LISTS,  COLLECTIONS, 


UP  TO  200 


170 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2B0 
290 
300 
310 
320 
330 


IF  V=2  THEN 

Fl*="      ": 

PRINT: PRINT 

PR I NT "INPUT  FIELD  NAME,  FIELD  TYPE  (A=ALPHA,  N=NUMERIC) 

REM 

FOR  1=1  TO  30 

PRINT  I; ")   "5 

E*="": INPUT  E*,RS$ 

IF  E*=""THEN  GOTO  380 

IF  (RS*<>"A">  AND  (RS*<! 

PRINT" INCORRECT  SYNTAX, 


>"N">  THEN  320  ELSE  330 
PLEASE  RE-ENTER": GOTO  290 


0  E*=LEFT* ( E*+F 1 * , 4 ) + " , " +RS* 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


GOSUB  2130   'ROUTINE  TO  THROW-OUT  EXTRANEOUS  SPACES 
P*  <  I ) =E* 
NEXT  I 
GOTO  390 
P*(I)="END" 

PR  I  NT:  PR  I  NT  "THE  RECORDS  AND  FIELDS  ENTERED  WERE."" 
FOR  1=1  TO  10 

IF  LEFT*(P*(I) ,3>="END"  THEN  GOTO  440 
PRINT  I,"":  "5P*(I> 
NEXT  I 

PRINT:  GOTO  460 

PRINT  "INCORRECT  SYNTAX,  PLEASE  RE-ENTER  YOUR  COMMAND" 
INPUT  "COMMAND" 5 E* 
N1=0: PRINT 
RESTORE 
READ  Z*,T 
IF  Z*="##"THEN  450 

IF  LEFT*<Z*,3)OLEFT*<E*,3)THEN  490 

ON  T  GOSUB  560 , 850 , 850 ,850,1 780 , 2980 , 1 040 , 970 , 2800 , 850 , 2260 
GOTO  460 

DATA  ADD, 1 , LIST, 2, CHANGE, 3, LABELS, 4, HELP, 5, END, 6, SEARCH, 7 
DATA  SUM,8,SAVE,9,RUB0UT, 10, SORT, 11, ##,-1 
REM  ADD  RECORD  ROUTINE 

PRINT"BEGIN  ADDING  RECORDS.  TYPE  "END'  WHEN  FINISHED. " 
N=N+l:  Nl=Nl+l:  E*="" 
PRINT  N5 ")   "5 
FOR  1=1  TO  30 

IF  LEFT*(P*(I) ,3>="END"THEN  GOTO  730 
PRINTTAB(7)  P* < I ) ; " :  " ; 
RS*="  ":  INPUT  RS* 
REM 

IF  RS*=""THEN  RS*="  " 
RS*=" END "THEN  800 


>43 
IS 


>"N"THEN 
ASC (RS3>) 


AND 

A  NUMERIC 


700 

58  THEN  700 
FIELD-  ENTER  NUMBERS 


ONLY": GOTO  620 


IF 

IF  MID*(P*(I),6,D- 

IF  ASC<RS*>:: 

PRINT  "THIS 

REM 

IF  LEN<E*)+  LEN(RS*)>245  GOTO  760  ELSE  E*=E*+CHR* ( 126) +RS* 

NEXT  I 

P*=STR*(N) 

E*=P*+E*+CHR* (126) 

GOTO  770 

PRINT  "YOU  HAVE  EXCEEDED  THE  ALLOWED  RECORD  LENGTH,  PLEASE 
RE-ENTER":  GOTO  590 
770  M*(N)=E* 
780  PRINT 
790  GOTO  580 

800  REM  END  OF  ADDITION  TO  RECORDS 
810  N=N-l:  Nl=Nl-i 

820  PRINT  "YOU  ADDED"  5  Nl ,"  "  RECORDS" 
830  RETURN 
840  REM  ROUTINE  TO  LIST  RECORDS 
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850  BOSUB  1870:  REM  DETERMINE  RECORD  RANGE  TO  LIST 

860  IF  T=10  THEN  1150 

870  IF  T<>4  THEN  1060 

880  INPUT-WOULD  YOU  LIKE  TO  TEST  LABEL  ALIGNMENT" 5 Z* 

890  IF  Z*="NO"  THEN  INPUT  "PRESS  ENTER  WHEN  YOU  ARE  READY  TO  PRINT 

DATA "J  EN*: GOTO  1060 

900  INPUT  "ALIGN  PRINTOUT  AND  PRESS  < ENTER >  WHEN  READY " ;  W9"/. 

910  FOR  1=1  TO  2 

920  FOR  J=l  TO  5 

930  LPRINT  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

XXXXXXXX" 

940  NEXT  J 

950  LPRINT:  NEXT  I 

960  INPUT  "PRESS  < ENTER >  WHEN  YOU  ARE  READY  TO  PRINT  THE  DATA"; EN 

*:GOTO  1060 

970  REM  ROUTINE  TO  SEARCH  RECORDS  AND  PERFORM  SUMMATIONS 

980  INPUT"ENTER  THE  NUMBER  OF  THE  FIELD  TO  BE  SUMMED" ;SM% 

990  IF  MID*<P*(SM%> ,6, 1>="N"THEN  1020 

1000  PR I NT "INCORRECT  TYPE  OF  FIELD,  PLEASE  RE-ENTER" 

1010  GOTO  980 

1020  INPUT"DO  YOU  WANT  TO  SUM  OVER  ALL  RECORDS? (Y/N) "J SI* 

1030  IF  S1*<>"Y"THEN  1040  ELSE  S"/.=0:  GOTO  1050 

1040  INPUT"ENTER  THE  FIELD  NUMBER  AND  EXPRESSION  TO  BE  COMPARED"; 

S%,S* 

1050  Tl=l:  SM=0:  T2=N 

1060  FOR  I=T1  TO  T2 

1070  RS*=M*(I) 

1080  E*=LEFT*(RS*,5) 

1090  T3=VAL(E*> 

1100  E*=RS* 

1110  RS*=CHR*<126> 

1120  GOSUB  2680  'ROUTINE  TO  PARSE  STRING 

1130  GOTO  1210 

1140  REM  RUBOUT  COMMAND  ROUTINE 

1150  FD=T2-T1+1 

1160  FOR  I=T2+1  TO  N+l 

1170  M*(I-FD)=M*(I> 

1180  NEXT  I 

1190  N=N-FD 

1200  RETURN 

1210  IF  T<=4  THEN  1290 

1220  IF  S"/.=0  THEN  1240    'SUM  THE  RECORDS 

1230  IF  C*(S%)OS*  THEN  1580    '  GOTO  SEARCH  ROUTINE 

1240  IF  T=7  THEN  1380 

1250  PRINT  "("SIS")"! 

1260  T3=VAL(C*(SM%) ) 

1270  SM=SM+T3 

1280  GOTO  1580 

1290  ON  T-l  GOTO  1380,1380,1300 

1300  REM  ROUTINE  TO  PRINT  LABELS 

1310  FOR  J=l  TO  5 

1315- IF  C*(J)-="END"  THEN  1340 
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1320  LPRINT  C*(J> 

1330  NEXT  J 

1340  LPRINT 

1350  GOTO  1580 

1360  REM 

1370  PRINT  "YOU  HAVE  EXCEEDED  THE  ALLOWED  RECORD  LENGTH,  PLEASE  R 

E-ENTER" 

1380  PRINT  I;  ") 

1390  FOR  J=l  TO  10 

1400  IF  LEFT*  < P* <  J ) , 3 ) = " END " THEN  GOTO  1 480 

1410  PRINT  P*(J);":  ";C*(J) 

1420    IF    T03THEN    1460 

1430    INPUT    RS* 

1440  IF  RS*="~"THEN  GOTO  1460 

1450  C*(J)=RS* 

1460  NEXT  J 

1470  REM 

1480  IF  T<>3  THEN  1580 

1490  P*=C*<0>    'ROUTINE  TO  ADD  A  CHANGED  RECORD 

1500  PRINT  P* 

1510  E*=P*+CHR*.<126) 

1520  FOR  J=l  TO  10 

1 530  I F  LEN  <  E*  >  +LEN  <  C* ( J  > )  >245  GOTO  1 370 

1540  E*=E*+C*(J)+CHR*<126) 

1550  IF  P*(J)="END"  THEN  1570 

1560  NEXT  J 

1570  M*<I)=E* 

1580  NEXT  I 

1590  IF  T<>8  THEN  1610 

1600  PRINT  "THE  SUM  OF  RECORD  "  j  P*  (SMX)  ",  "    =    "  ;  SM 

1610  RETURN 

1620  REM  LOAD  DATA  FROM  DISK 

1630  CLOSE: J =-l: INPUT "ENTER  FILE  NAME" 5 F* 

1640  OPEN"I", 1,F* 

1650  INPUT#1,E* 

1660  J=J+l: INPUT#1,E* 

1670  IF  E*=" EOF "THEN  1700 

1680  M*<J)=E* 

1690  GOTO 1660 

1700  E*=M*(0) 

1710  RS$=CHR*(126) 

1720  GOSUB  2670 

1730  FOR  1=1  TO  30 

1740  P*(I)=C*(I)  :IF  LEFT*  (P*  (I)  ,3)<="END"  THEN  1760 

1750  NEXT  I: 1=1-1 

1760  N=VAL<C*<I+1) ) 

1770  CLOSE: 60T0460 

1780  REM  HELP  SEQUENCE 

1790  PR I NT "COMMANDS  AVAILABLE: " 

1800  PRINT-ADD:  ADDS  RECORDS  TO  THE  FILE":PRINT"CHANGE:  changes 
RECORDS  IN  THE  FILE" 

1810  PRINT"RUBOUT:  DELETES  A  RECORD  FROM  THE  FILE": PR I NT "LI ST: 
LISTS  ALL  OR  CERTAIN  RECORDS" 
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1820  PR I NT "LABELS:  LINE  PRINTS  CONTENTS  OF  THE  FILE" : PR I NT "SAVE: 
LOADS  DATA  TO  DISK" 

1830  PR I NT "SORT:  SORTS  RECORDS  INTO  ALPHANUMERIC  ORDER  BY  A  SPEC I 
FIED  FIELD"  ."PRINT "SUM:  SUMS  A  SPECIFIED  FIELD  OVER  A  GROUP  OF  RECO 

RDS" 

1840  PR I NT "SEARCH:  FINDS  A  RECORD  CONTAINING  A  SPECIFIED  FIELD" 

1850  PR I NT "HELP:  BRINGS  YOU  HERE" : PR I NT "END:  ENDS  THE  PROGRAM" 

1860  RETURN 

1870  REM  DETERMINE  THE  RANGE 

1880  IF  N=0  THEN  PRINT  "EMPTY  FILE" 

1890  IF  N=0  THEN  460 

1900  PRINT  "ENTER  MODE: A (ALL) ,0 (ONE) , R (RANGE) " 

1910  INPUT  E* 

1920  IF  E*<>"A"  THEN  1950 

1930  T2=N:T1=1 

1940  GOTO  2090 

1950  IF  E*O"0"THEN  2000 

1960  INPUT  "ENTER  NUMBER  OF  RECORD" 5 Tl 

1970  IF  T1>NTHEN  2100 

1980  T2=T1 

1990  GOTO  2090 

2000  IF  E*="R"THEN  2030 

2010  PRINT" IMPROPER  SYNTAX,  PLEASE  RE-ENTER" 

2020  GOTO  1900 

2030  PR I NT "INPUT  THE  LOWER  BOUND" 

2040  INPUT  Tl 

2050  IF  TK1THENT1  =  1 

2060  IF  TON  THEN  GOSUB  2100 

2070  INPUT "INPUT  THE  UPPER  BOUND" 5 T2 

2080  IF  T2>N  THEN  2100 

2090  RETURN 

2100  PRINT  "THERE  ARE  ONLY";N;"  RECORDS  IN  THIS  FILE" 

2110  GOTO  1900 

2120  REM 

2130  REM  ELIMINATE  EXTRANEOUS  SPACES  FROM  STRINGS 

2140  T1=LEN(E*> :C*="  ":  IF  T1=0  THEN  2240 

2150  FOR  T2=2  TO  Tl 

2160  IF  MID$(Et,T2-l,l)OC$  THEN  2190 

2170  E*=MID*(E*,2,.T1-1) 

2180  NEXT  T2 

2190  T1=LEN(E*) 

2200  IF  T1=0  THEN  2240 

2210  IF  RIGHT*  <E*,  DOC*  THEN  2240 

2220  E*=LEFT*(E*,T1-1) 

2230  GOTO  2210 

2240  RETURN 

2250  PR I NT "PLEASE  RE-ENTER  DATA" 

2260  INPUT  "INPUT  THE  FIELD  NUMBER  TO  BE  SORTED "  ?  S% 

2270  PRINT  "THE  FIELD  NAME  IS: " 5 P* <S%) 

2280  T2=N:T1=1 

2290  FDR  I=T1  TO  T2 

2300  E*=M*(I> 
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2310  RS*=CHR*(126) 

2320  GOSUB  2670 

2330  D*(I)=C*(S7.) 

2340  NEXT  I 

2350  IF  M I D*  ( P*  < S"/. )  ,  6 ,  1 )  <  >  " A "  THEN  2380 

2360  SR7.=  1 

2370  GOTO  2420 

2380  IF  MID*(P*(S%) ,6,1)="N"  THEN  2410 

2390  PRINT  "ERROR:  THE  WRONG  FIELD  TYPE  WAS  INPUTTED' 

2400  GOTO  460 

2410  SR'/.=2 

2420  REM  SORT  ROUTINE 

2430  M=N 

2440  M=INT(M/2) 

2450  IF  M=0  THEN  2660 

2460  J=l 

2470  K=N-M 

2480  I=J 

2490  L=I+M 

2500  IF  SR%=2  THEN  2530 

2510  IF  D*(IXD*(L)  THEN  2630 

2520  GOTO  2540 

2530  I F  VAL  ( D* ( I ) X VAL ( D* ( L) )  THEN  2630 

2540  E*=D*(I) 

2550  D*(I)=D*<L) 

2560  D*(L)=E* 

2570  E*=M*(I) 

2580  M*(I)=M*(L) 

2590  M*(L)=E* 

2600  I=I-M 

2610  IF  I<1  THEN  2630 

2620  GOTO  2490 

2630  J=J+1 

2640  IF  J>K  THEN  2440 

2650  GOTO  2480 

2660  G0T0460 

2670  REM 

2680  REM  STRING  PARSING  ROUTINE 

2690  K=-l 

2700  F0RJ2=1T0LEN<E$) 

2710  IF . RS*=MID*(E*, J2, 1 ) THEN2740 

2720  NEXT  J 2 

2730  RETURN 

2740  M7.=J2-1 

2750  K=K+1 

2760  C*(K)=MID*(E*, 1,M%)' 

2770  E*=MID*(E$, J2+1 ) 

2780  J2=0 

2790  GOTO  2700 

2800  REM  SAVE  DATA  TO  DISK 

2810  REM 

2820  INPUT"ENTER  NAME  FOR  DATA" 5 F* 
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2830 

0PEN"0", 1,F* 

2840 

PRINT#1 , CHR* (34) +F*+CHR* (34) 

2850 

E*=" 00000" 

2860 

F0RI=1    TO    10 

2870 

E*=E*+CHR* (126) +P* ( I ) 

2880 

RS*=LEFT*(P*(I) ,3) 

2890 

IF    RS*="END"    THEN    2910 

2900 

NEXT    I 

2910 

E*=E*+CHR*(126)+STR*(N)+CHR*(126) 

2920 

PR I NT# 1 , CHR* ( 34 ) +E*+CHR* ( 34 ) 

2930 

F0RJ=1T0N 

2940 

PR I NT# 1 , CHR* ( 34 ) +M* ( J ) +CHR* ( 34 ) 

2950 

NEXT    J 

2960 

PRINT#1, "EOF" 

2970 

CLOSE: RETURN 

2980 

END 

Table  1-4 

Uses  for  Database  Management  System. 

BUSINESS  USES 

EDUCATIONAL  USES 

HOME  &  HOBBY  USES 

Customer  filing 

Formulas 

Student  records            Meeting  schedules 

Personal  records 

Prospect  lists 

Production  data 

Grade  records              Facility  schedules 

Check  lists 

Master  files  for .  .  . 

Processes 

Teacher  lists 

Club  rosters 

Gen.  Ledger 

Cross  referencing 

School  lists 

Telephone  directories 

Accts.  Receiv. 

Commission  records 

Program  design 

Recipes  files 

Accts.  Payable 

General  filing 

Tuition  data 

Medical  information 

Payroll  Records 

Enrollment  data 

Property  records 

Personal  data 

Property/equipment 

Appliance  warranties 

Telephone  logs 

Athletic  schedules 

Insurance  records 

Telephone  lists 

Player  assignment 

Christmas  lists/gifts 

Hotel/travel  data 

Games  schedules 

Appointments 

Reservations 

Player  statistics 

Articles  indexes 

Property  control 

Mailing  lists 

Tax  records/data 

Library  catalogues 

Test  scores 

Expenses 

Inventory 

Menus 

Book  ownership 

Key  Employee  data 

Diet  selections 

Utility  records 

Advertising  data 

Inventory 

Deposit  files 

Source  files 

Seating  charts 

Due  dates 

Sales  leads 

Cataloguing 

Travel  records 

Mail  lists 

Laboratory  data 

Meal  planning 

Private  records 

Inspection  data 

Mortgage  data 

Corp.  records 

Experimental  data 

Auto  records 

Directories 

Attendance  data 

Crop  yields 

Billing  information 

Course  description 

Source  files 

Delivery  schedules 

Purchase  orders 

Magazine  Article  index 

Routes 

Requisitions 

Estimate  files 

Territories 

Vacation  records 

Investments 

Quotations 

Budgets 

Plus  all  the  Business  & 

Applintments 

Maintenance  data 

Educational  overlaps 

Conventions 

Locker  assignment 

Workshop  data 

Field  trips 

Assets  lists 

Vehicle  records 

Marketing  data 

Tenure  records 

Insurance  data 

Parking  assignment 

Pricing  schedules 

Violation  records 

30 


Database   programs  are  perhaps  the  most  Sophisticated  database  programs  are  commer- 

useful  personal  computer  programs  because  of  their  cially  available,  but  the  following  database  dem- 

wide  application.  In  what  applications  could  you  use  onstration  program  should  be  adequate  for  most 

a  database?  The  list  in  Table  1-4  names  a  number  of  home  uses.  Unlike  most  commercial  programs, 

the  thousands  of  types  of  information  that  may  be  which  rely  upon  machine  language  commands  for 

stored,  indexed,  organized,  or  cross-referenced  by  added  speed,  this  program  is  written  in  BASIC  for 

a  database  program.  Many  of  these  applications  are  easy  modification.  It  is  designed  for  use  with  floppy 

discussed  in  more  detail  throughout  the  book.  disks. 
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Chapter  2 


Business  and  Financial  Applications 


Personal  computers  have  greatly  altered  the  busi- 
ness world  by  permitting  rapid  calculation  of 
numerous  "What  if .  .?"  questions  involving  finan- 
cial formulas,  in  addition  to  providing  accounting 
functions.  Likewise,  the  homeowner  will  find  the 
personal  computer  useful  in  analyzing  loans, 
budgets,  and  investments.  Calculations  that  were 
previously  open  to  error  and  time-consuming  can 
now  be  accomplished  with  ease  and  permit  better 
decision  making. 

FINANCES  AND  INVESTMENTS 

A  growing  number  of  investors  are  using  their 
personal  computers  to  help  them  manage  their 
stock  and  bond  portfolios,  analyze  trends  in  the 
financial  markets,  and  investigate  individual  stocks 
and  decide  when  to  buy  or  sell.  A  personal  com- 
puter connected  to  a  database  can  sort  out  enorm- 
ous quantities  of  market  and  company  statistics  for 
an  investor;  and  within  seconds  the  results  may  be 
projected  on  the  screen  as  charts,  tables,  or  graphs, 
enabling  an  investor  to   evaluate*  a  buying 


opportunity— or  a  must-sell  situation— quickly  and 
probably  more  accurately  than  if  the  calculations 
were  done  by  hand.  The  personal  computer  can 
sometimes  make  your  life  as  an  investor  more  re- 
warding, and  often  much  easier.  Additionally,  the 
cost  of  investment  programs  may  be  counted  as  a 
business  expense  for  tax  purposes,  as  can  part  or  all 
of  the  cost  of  your  computer. 

STOCKS,  BONDS,  AND  SECURITIES 

The  personal  computer  has  come  to  the  aid  of 
the  individual  investor  in  three  areas:  portfolio 
management,  technical  and  fundamental  analysis; 
and  database  access.  Making  investment  decisions 
or  recommendations  requires  accurate  technical 
analysis  of  large  amounts  of  data  on  a  timely  basis. 
Compiling  information  in  standard  formats  con- 
cerning stock  performance  or  company  finances, 
doing  statistical  computations  to  update  individual 
stock  files,  tracking  moving  averages,  and  main- 
taining complete  records  of  one  or  a  number  of 
portfolios  are  all  tasks  ideally  suited  to  the  personal 
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computer.  Professional  brokers  as  well  as  individu- 
als have  witnessed  the  significant  impact  that  the 
personal  computer  can  have  on  the  analytical  func- 
tions on  which  they  base  their  recommendations. 
With  the  advent  of  the  bull  market  of  the  early  1980s 
and  the  rise  of  the  discount  broker,  professional 
software  packages  have  become  available  to  help 
investors  at  home  make  the  investment  decisions 
that  used  to  be  made  by  their  full-service  broker- 
ages. 

Portfolio  Management 

Portfolio  management  programs  are  really  just 
electronic  notebooks.  They  keep  a  complete  record 
of  the  stocks  you  own  and  show  how  well  you're 
doing  at  the  game.  They  are  especially  useful  at  tax 
time;  their  compilations  of  your  losses,  gains, 
dividends,  brokerage  commissions,  and  more  make 
it  easy  to  account  to  Uncle  Sam  for  your  Wall  Street 
activity. 

The  limitations  on  most  packages  involve  the 
number  of  stock  characteristics  maintained  or  com- 
puted for  each  stock.  Most  packages  will  allow  for  a 
virtually  unlimited  number  of  stock  records  (letting 
you  track  your  own  portfolio  as  well  as  that  of 
several  financial  advisors),  as  long  as  you  are 
willing  to  maintain  them  on  a  number  of  disks. 

The  simplest  individual  portfolio  management 
programs  provide  a  means  of  recording  the  basic 
information  on  stocks  in  your  own  portfolio  or  on 
any  other  stocks  you  wish  to  track  for  comparison. 
When  you  choose  to  update— on  a  daily,  weekly,  or 
other  periodic  basis— the  program  will  automati- 
cally perform  certain  calculations,  such  as  present 
value  of  the  issues,  or  long-  and  short-term  gains 
and  losses  (as  if  you  sold  the  stock  on  that  date).  It 
can  automatically  remind  you  of  a  stock  that  will  go 
long-term  within  30  days  or  maintain  other  infor- 
mation such  as  dates  and  number  of  shares  pur- 
chased, total  number  of  shares  owned,  dividends, 
growth  rate,  and  percentage  appreciation  or  depre- 
ciation. The  following  analysis  factors  may  be  com- 
puted for  the  entire  portfolio:  sum  of  cost  prices, 
sum  of  current  value,  sum  and  percentage  differ- 
ence between  cost  and  current  price,  percentage 
return  on  a  cost  basis,  and  percentage  return  on  the 


current  value.  A  report  may  be  automatically  pre- 
pared for  attachment  to  IRS  forms,  and  the  portfolio 
information  may  be  printed  in  a  variety  of  formats 
for  ready  reference. 

More  advanced  portfolio  management 
packages  allow  hundreds  of  open  tax  lots  in  a  sys- 
tem that  matches  your  transactions  against  open 
positions  to  let  you  make  investment  decisions  that 
minimize  your  tax  liability.  You  can  track  stocks, 
options,  bonds,  treasuries,  and  mutual  funds;  the 
system  can  accommodate  buy,  sell,  short  sell,  and 
buy-to-cover  transactions.  Return  on  investment 
for  each  stock  and  the  entire  portfolio  may  be  com- 
puted as  well  as  the  total  net  earnings.  Sophisti- 
cated programmers  could  make  use  of  Sharpe's 
method  (or  another  method)  in  determining  the 
proportion  of  funds  that  should  be  allocated  to  each 
security  in  a  portfolio  to  maximize  returns. 

Technical  and  Fundamental  Analysis 

Fundamental  analysis  assumes  that  the  price 
fluctuations  of  stocks  are  based  on  the  basic  finan- 
cial health  of  the  economy  and  the  performance  of 
the  individual  company.  Thus,  fundamental  an- 
alysts look  at  such  factors  as  earnings,  sales,  as- 
sets, and  liabilities  and  use  these  to  predict  future 
price  movements. 

Technical  analysts  argue  that  these  factors  af- 
fect stock  prices  only  over  the  long  run.  Short-term 
fluctuations,  they  maintain,  are  governed  by 
psychological  conditions  in  the  market  itself,  not 
external  factors.  Therefore,  they  believe  the  study 
of  the  past  market  behavior  can  determine  the  way 
to  profits  in  the  future.  There  are  many  different 
theories  that  promote  various  indicators  as  the  key 
to  future  price  movement.  Some  of  the  major  indi- 
cators are  the  relationship  between  price  and  vol- 
ume, market  averages,  and  new  highs  versus  lows. 

Both  fundamental  and  technical  anlysis  call  for 
extensive  number  crunching  and  are  well  suited  for 
being  handled  by  computers,  although  fundamental 
analysis  involves  the  capacity  of  most  personal 
computers.  In  fact,  almost  all  of  the  analysis  prog- 
rams available  on  the  personal  computer  market  do 
technical  anlysis.  In  technical  analysis,  computers 
can  be  especially  useful  in  charting  various  re- 
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lationships  between  individual  stock  prices  and 
trading  volumes.  A  personal  computer  can  turn  a 
pile  of  statistics  that  might  take  several  hours  to 
plot  by  hand  into  a  chart  within  seconds.  In  this 
chapter  I  will  discuss  some  popular  means  of  tech- 
nical and  fundamental  analysis.  Interested  readers 
are  referred  to  popular  manuals  on  investment 
analysis,  statistics,  and  these  publications  on 
computer-assisted  stock  analysis  for  further  infor- 
mation: 


With  a  microcomputer  at  your  disposal,  you 
can  now  develop  and  test  a  market  theory  without 
countless,  error-prone  manual  calculations!  A 
"paper  portfolio,"  or  collection  of  stocks  to  track 
that  are  not  actually  owned,  was  once  too  time  and 
effort  consuming  for  the  individual  investor  to  ex- 
periment with.  When  you  experiment  each  "buy  and 
sell"  decision  can  be  based  on  actual  market  per- 
formance and  serve  as  a  "lesson  learned"  in  de- 
veloping your  own  trading  strategies. 


*L.R.  Schmeltz,  Playing  the  Stock  and  Bond  Mar- 
kets With  Your  Personal  Computer,  TAB  BOOKS 
Inc.,  Blue  Ridge  Summit,  PA  17214. 
*Leslie  E.  Sparks,  Investment  Analysis  With  Your 
Microcomputer,  TAB  BOOKS  Inc.,  Blue  Ridge 
Summit,  PA  17214. 

*The  Microcomputer  Investor,  The  Microcomputer 
Investors  Association,  902  Anderson  Dr.,  Fred- 
ricksburg,  VA  22401. 

Computerized  Investing  on  the  Stock  Market  from 
Investment  Software  Concepts,  P.O.  Box  27, 
Bronxville,  NY  10708. 

*Woodwell,  Donald,  Automating  Your  Financial 
Portfolio:  An  Investor's  Guide  to  Personal  Comput- 
ers, Dow-Jones-Irwin,  1818  Ridge  Rd.,  Home- 
wood,  IL  60430. 


Moving  Averages 

Moving  averages  provide  a  measure  of  the 
movement  of  a  stock  relative  to  itself  (in  price, 
dividend,  or  volume),  a  composite  summary  of  a 
key  factor  (for  example,  the  average  price  of  a  stock 
group),  and  a  ratio  of  two  or  more  key  factors  (for 
example,  P/E  ratios).  The  moving  average  is  often 
most  useful  in  predicting  the  buy  versus  sell  posi- 
tion of  a  stock  in  regard  to  its  past  trend.  If  the 
current  stock  price  drops  below  the  moving  aver- 
age, a  sell  position  would  be  taken  and  vice-versa 
for  a  buy  position.  The  program  in  Listing  2-1  com- 
putes the  moving  average  for  a  stock  or  other  se- 
curity given  a  set  of  successive  daily  prices  and  the 
length  of  the  span  over  which  the  average  is  to  be 
computed. 


Listing  2-1:  The  Moving  Average  Calculator  Program 


5 

10 

20 

30 

40 

50 

60 

70 

80 

90 


CLS 


TO  END' 


REM  MOVING  AVERAGE  CALCULATOR 

PRINT  "ENTER  PRICE  VALUES  SUCCESSIVELY,  '9999' 

DIM  A(200),B(200):X=0 

X=X+1:PRINT  n#";X;: INPUT  A(X) 

IF  A(X)=9999  THEN  X=X-l:GOTO  60  ELSE  40 

INPUT  "ENTER  SPAN  LENGTH" ;C 

E=(1+C)/2:D=1:G=C 

F=0:FOR  I=D  TO  G 

F=A(I)+F:NEXT 
100  G=G+1:B(E)=INT(.5+F/C):E=E+1:D=D+1 
110  IF  G<l+X  THEN  80 

140  PRINT  "   WEEK  #    WEEKLY  PRICE  AVE.     MOVING  AVE" 
150  A$="   ####         ####  ####" 

160  FOR  1=1  TO  XrPRINT  USING  A$;I,A(I) ,B(I) 
170  NEXT  I 
180  INPUT  "TYPE  *  1 '  TO  CHOOSE  NEW  SPAN";ZZ 
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190  IF  ZZOl  THEN  END 

200  FOR  1=1  TO  X:B(I)=0:NEXT  I 

210  GOTO  60 


%  Rate  of  Change    = 


Ending-Starting  Price 
Starting  Price 

No.  of  trading  days 


100 


This  value  may  be  determined  for  daily,  weekly, 
monthly,  yearly  or  other  periods  by  alternating  the 
denominator. 

Change  Distribution 

This  analysis  technique  compares  the  dis- 
tributional change  of  individual  stocks  within  a 
group  to  the  average  change  of  the  group  for  a  given 
time  period.  This  provides  a  probabilistic  measure 
of  the  rate  of  change  in  either  relative  or  absolute 
terms. 

The  stock  distribution,  like  a  normal  distribu- 
tion, is  described  by  the  factors  of  price  average  and 
standard  deviation;  the  standard  deviation  usually 
increases  as  the  length  of  time  considered  in- 
creases and  as  the  market  rate  of  change  increases. 
By  knowing  the  typical  stock  price  distributions  for 
different  market  index  rates  of  change,  the  proba- 
bility of  success  in  short-term  trading  is  increased; 
the  investor  is  equipped  with  the  probability  dis- 
tribution of  the  price  change. 


Price/Volume  Trace 

In  this  analysis  technique,  the  daily  stock  price 
and  volume  data  are  considered  as  (x,  y)  data  points. 
Probability  rules  may  be  developed  as  clues  to  the 
immediate  future  performance  of  the  stock  price  as 
it  relates  to  volume. 

Rate  of  Change 

The  rate  of  change  is  a  measure  that  involves 
price  fluctuations  of  a  stock  to  itself  and  may  be 
used  to  compare  stocks  in  terms  of  price,  sales,  or 
earnings.  On  this  basis  you  can  find  the  stock  with 
the  best  potential  to  increase  in  price  in  the  im- 
mediate future,  barring  any  information  or  indica- 
tion that  the  current  stock  trend  will  change  or 
reverse.  It  is  computed  as  follows: 


Price  Indexes 

Price  indices  are  indicators  of  the  central  drift 
of  a  set  of  stocks  or  the  market  as  a  whole.  These 
include  the  Dow  Jones,  New  York  Stock  Exhange, 
American  Stock  Exchange,  Standard  &  Poor  index, 
and  other  indices.  They  can  be  best  applied  to 
determine  a  consensus  of  individual  stock  trends 
within  a  given  stock  category.  An  indicator  that  is 
well  suited  for  computation  on  your  personal  com- 
puter would  use  the  formula 


INDEX    =     £• 


x   y 

n     J  n 


where  xn  =  stock  price 

yn  =  number  of  shares  traded  at  x 
y  =  total  shares  traded 

The  moving  average  and  indexing  concepts 
may  be  used  as  powerful  decision-making  tools  in 
determining  whether  the  investor  should  be  an- 
ticipating a  trading  decision,  trading,  or  inves- 
tigating other  investments. 

Ratio  Relationships 

The  use  of  ratios  is  popular  in  business  and 
finance  because  they  afford  a  means  of  comparison 
of  two  or  more  factors  that  influence  investment 
decisions.  A  well-known  example  is  the  price/ 
earnings  (P/E)  ratio  used  in  measuring  the  poten- 
tial of  a  stock.  Others  include  the  ratio  of  sales 
growth,  the  ratio  of  consecutive  period  earnings, 
the  yearly  high  stock  price  versus  the  low  price,  and 
the  relative  strength  of  a  stock  versus  the  market 
index.  The  personal  computer  may  be  used  in  au- 
tomatically calculating  many  of  the  popular  ratios 
and  in  forecasting  changes  of  ratios  through  the  use 
of  statistical  regression.  For  instance,  the  future 
price  of  a  stock  may  be  computed  given  current 
value  per  share,  projected  earnings,  and  projected 
percent  change  in  the  P/E  ratio  using  this  simple 
formula: 
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V 


V  E2 

c       p 


b  = 


nSXY  -  X  X  2  Y 
nSX2-  (2X)2 


where  V,  =  current  value  per  share 
E   =  projected  earnings 
C    =  projected  percent  change  of  P/E  ratio 
E   =  current  earnings 
V   =  projected  value  per  share 

Note  that  all  projected  values  must  be  for  the  same 
length  of  time. 

Trend  Line  Analysis 

Trend  line  analysis  is  a  major  statistical  com- 
putation in  financial  analysis  and  is  accomplished  by 
using  the  method  of  linear  least  squares  fitting  of 
data.  Suppose  you  obtained  a  set  of  data  listing  the 
value  of  one  stock  over  a  period  of  time.  If  these 
values  were  plotted  versus  the  Dow  Jones  Index  the 
result  could  appear  as  shown  in  Fig.  2-1. 

A  trend  line  analysis  would  determine  the  equ- 
ation of  the  line  that  best  fits  or  describes  the  data, 
telling  you  how  one  variable  is  related  to  another. 
This  equation,  in  the  form  of  y  =a  +  bx,  provides  a 
means  to  estimate  the  value  of  a  variable  (y)  given 
the  value  of  the  other  variable  (x).  The  values  of  a 
and  b  are  determined  using  these  regression  equa- 
tions: 


Fig.  2-1 .  A  trend  line  graph. 


■=  --CSY-bSX) 
n 


where  n  =  no.  of  (x,y)  pairs 
X  =  individual  x  values 
Y  =  individual  y  values 
b  =  slope  of  line 
a  =  y  axis  intercept 

As  described  in  the  chapter  concerning 
mathematical  and  statistical  applications,  the  stan- 
dard error  may  be  calculated  for  a  regression  line  to 
determine  how  well  it  describes  the  data. 

The  technique  of  multiple  linear  regression  is 
used  by  investors  in  determining  the  influence  of 
more  than  one  variable  (Xj  -  xn)  on  another  variable 
(y).  The  total  variation  in  y  may  often  be  better 
explained  through  the  use  of  multiple  x  variables  (y 
=  a  +  bj  x1  +  b^  +  .  .  .  bxn),  allowing  more 
precise  prediction  than  is  possible  through  the  sim- 
ple linear  regression  discussed  above.  For  in- 
stance, one  investor  using  microcomputer 
techniques  has  developed  a  four-variable  regres- 
sion equation  describing  the  stock  market  average: 

log  V=a+b  log  E  +  c  log  G  -  d  log  R 

where  V  =  Value  of  the  average 

E  =  Earnings  of  the  average 

G  =  Growth  rate  of  the  average's  earning 

R  =  Yield  of  quality  long-term  bonds 

In  this  example,  the  variables  (E,  G,  R)  are  re- 
gressed on  V.  The  constants  a,  b,  c,  d  are  deter- 
mined and  used  in  predicting  future  values  of  V 
based  on  past  relationships  to  E,  G,  and  R.  Multiple 
linear  regression  is  also  computed  using  the  least 
squares  method.  For  more  information  on  the  least 
squares  method,  to  a  textbook  of  statistics. 

Investors  using  multiple  linear  regression 
techniques  have  developed  modeling  equations  that 
reflect  the  influence  of  a  wide  variety  of  factors, 
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with  high  correlations,  on  stock  and  security  prices, 
earnings,  and  P/E  ratios.  These  include 

•  The  current  month's  interest  yield  of  the 
Moody's  AAA  Bond  Index. 

•  The  ratio  of  pretax  corporate  profits  for  the  pre- 
ceding twelve  months  to  pretax  corporate  profits 
adjusted  for  inventory  profits  for  the  same 
period. 

•  The  ratio  of  current  dollar  gross  national  product 
for  the  preceding  twelve  months  to  current  dollar 
gross  national  product  for  twelve  months  ending 
one  quarter  into  the  future. 

•  The  average  yield  on  taxable  U.S.  Government 
3-5  year  issues  for  the  preceding  six  months. 

•  The  average  year-to-year  percentage  gain  of  the 
Consumer  Price  Index. 

•  The  equity  of  the  S&P  400  one  year  previous 
divided  by  the  earnings  of  the  S&P  400  for  the 
latest  twelve  months. 

•  The  relative  consistency  of  divided  growth  for 
ten  years,  in  terms  of  the  ratio  of  the  correlation 
of  the  stock's  dividend  growth  with  time  to  that  of 
the  S&P  Industrial  Stock  Average's  dividend 
growth. 

•  The  relative  consistency  of  earnings  growth  for 
ten  years,  computed  as  above. 

•  The  relative  profit  margin  for  the  latest  report 
twelve  months. 

•  The  relative  rate  of  earnings  growth  for  the  pre- 
vious ten  years  on  a  per-share  basis. 

•  The  relative  size  measured  by  net  income  for  the 
latest  twelve  months. 

•  The  relative  return  on  equity,  as  earnings  less 
dividends  divided  by  equity  at  the  beginning  of 
the  twelve-month  period. 

•  The  relative  five-year  earnings-per-share  least- 
squares  growth  rate. 

•  The  relative  prospective  return  on  equity  in  the 
year  for  which  earnings  are  being  estimated. 

•  The  relative  prospective  earnings  growth  for  the 
next  quarter. 

•  The  relative  reinvestment  rate  in  the  latest  year. 

•  The  relative  prospective  earnings  growth  for  the 
next  two  quarters. 

•  The  relative  dividend  payout  ratio  for  the  latest 
twelve  months. 


•  The  relative  earnings  growth  for  the  latest 
twelve  months. 

Of  course,  many  other  variables  could  be  used 
at  the  investors  discretion,  including  DJIA,  specific 
industrial  indicators,  GNP,  employment  statistics, 
disposable  personal  income  statistics,  indices  of 
industrial  production,  bank  deposits,  money  sup- 
ply, interest  rates,  inventory  levels,  accounts 
receivable/payable,  and  railroad  freight  usage. 
With  a  large  selection  of  apparently  useful  variables 
to  employ,  you  can  now  build  a  multiple  regression 
equation  on  your  personal  computer,  seeking  both 
the  highest  possible  correlation  and  confidence 
level  and  the  least  interaction  among  variables  cho- 
sen. The  variables  may  be  regressed  against  indi- 
vidual stock  performance,  group  stock  perfor- 
mance, and  market  indices  or  other  securities. 
Those  variables  that  are  generally  most  useful  in- 
clude measures  of  preceding  and  following  interest 
rates,  inflation,  economic  activity  (for  example 
GNP),  industry  health,  and  rates  of  change. 

Database  Searching 

With  the  advent  of  databases  available  to  the 
individual  investor  at  low  rates,  a  personal  com- 
puter can  be  instructed  to  search  for  stocks  fulfilling 
any  combination  of  investment  criteria.  If,  for 
example,  you  are  a  conservative  investor,  you 
could  have  a  program  hunt  for  companies  whose 
shares  have  a  P/E  ratio  of  5  or  less  and  annual  yields 
of  10%  or  more— both  of  which  can  signify  under- 
valued companies. 

Financial  Ratio  Analysis 

Financial  ratio  analysis  is  an  ideal,  simple 
method  of  determining  how  well  a  particular  com- 
pany has  performed  in  relation  to  other  companies 
in  its  industry  or  in  relation  to  its  own  past  perfor- 
mance and  of  predicting  future  performance.  De- 
scribed below  are  several  popular  financial  ratios 
that  can  be  determined  using  figures  from  corporate 
annual  reports  and  a  simple  BASIC  program  that 
does  the  necessary  divisions  and  tabulations  or 
comparisons  with  figures  concerning  other  corpo- 
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rations.  Over  the  years,  security  analysts,  brokers, 
and  investors  have  found  that  financial  statements 
become  more  meaningful  when  ratios  between 
various  values  on  the  income  and  balance  sheets  are 
computed.  These  ratios  may  be  divided  into  four 
categories,  as  shown  below: 

Liquidity  Ratios 

Current  ratio 

Quick  ratio 

Inventory  to  working  capital 

Leverage  Ratios 

Debt  to  total  assets 
Times  interest  earned 
Current  liabilities  to  net  worth 
Fixed  assets  to  net  worth 
Debt  to  equity 

Activity  Ratios 

Cash  velocity 
Inventory  turnover 
Fixed  assets  turnover 
Average  collection  period 
Total  assets  turnover 

Profitability  Ratios 

Net  operating  margin 
Net  income  margin 
Return  on  assets 
Return  on  net  worth 

Liquidity  ratios  are  designed  to  measure  a 
firm's  ability  to  meet  its  obligations  as  they  mature 
and  relate  to  the  amount  of  cash  and  assets  con- 
vertible into  cash  in  the  near  future. 

Leverage  ratios  measures  the  financing  pro- 
vided by  owners  as  compared  with  the  financing 
provided  by  the  firm's  creditors.  Creditors  look  at 
the  owner-supplied  funds  to  provide  them  with  a 
margin  of  safety,  but  by  raising  funds  through  debt, 
the  owners  are  able  to  maintain  control  of  the  firm 
with  a  small  investment.  The  return  of  the  owners 
is  magnified  when  the  firm  earns  more  on  the  bor- 
rowed funds  than  it  pays  in  interest. 

Activity  ratios  determine  how  effectively 


the  firm  utilizes  the  resources  available. 

Profitability  ratios  demonstrate  the  result 
of  the  policies  and  decisions  of  the  firm's  manage- 
ment. Both  operating  margins  and  new  profits  are 
calculated  to  distinguish  between  the  results  of 
operating  policies  and  the  results  of  financial 
policies. 

The  input  data  needed  for  computation  of  these 
ratios  is  usually  found  in  the  financial  statements  of 
a  company  and  includes 

Cash:  all  cash  on  hand  plus  cash  in  the  com- 
pany's bank  accounts.  Any  cash  in  certificates  of 
deposit  or  other  short-term  deposits  should  be  in- 
cluded. 

Marketable  securities:  investments  in  obliga- 
tions that  are  readily  marketable  and  can  be  con- 
verted into  cash  on  short  notice. 

Receivables  (beginning):  receivables  should  be 
net  of  any  reserve  for  doubtful  accounts  and  be  fully 
collectible  within  one  year.  Beginning  receivables 
are  those  that  were  due  to  the  company  at  the 
beginning  of  the  operating  year. 

Receivables  (ending):  those  receivables  due  to 
the  company  at  the  end  of  the  operating  year. 

Inventory  (beginning):  inventory  that  is  on  hand 
at  the  beginning  of  the  operating  year. 

Inventory  (ending):  inventory  that  is  on  hand  at 
the  end  of  the  operating  year. 

Current  assets:  the  total  of  cash,  marketable 
securities,  receivables,  inventories,  and  other  as- 
sets of  the  company  that  are  expected  to  be  con- 
verted into  cash  in  the  normal  course  of  business 
within  the  current  operating  year. 

Fixed  assets:  assets  such  as  land,  buildings, 
leasehold  improvements,  equipment,  fixtures,  fur- 
nishings, vehicles  and  other  assets  with  lives 
longer  than  one  year  that  are  used  in  the  operations 
of  the  company. 
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Total  assets:  the  total  of  all  assets  of  the  company, 
including  current  assets,  fixed  assets,  and  other 
assets. 

Current  liabilities:  debts  of  the  company  that 
must  be  paid  within  one  year,  usually  consisting  of 
trade  accounts  payable,  payroll  taxes  withheld,  ac- 
crued expenses,  and  that  portion  of  long-term  debt 
coming  due  within  one  year. 

Total  liabilities:  the  total  of  all  the  debt  of  the 
company,  including  current  as  well  as  noncurrent 
liabilities. 

Net  worth:  (also  called  owner's  equity  or  stock- 
holders' equity)  the  difference  between  total  assets 
and  total  liabilities. 

Sales:  the  total  revenues  earned  by  the  com- 
pany during  the  year,  net  of  all  sales  discounts  and 
returns. 

Gross  operating  profit:  found  by  subtracting 
cost  of  sales  from  sales.  It  represents  the  difference 
between  the  sales  price  of  all  items  sold  and  the 
cost  of  the  items  sold. 

Interest  charges:  the  total  amount  of  interest 
that  has  been  paid  by  the  company  on  its  indebted- 
ness. 

Profit  before  income  taxes:  the  net  income  of  the 
company  for  the  year  after  all  expenses  have  been 
considered.  It  is  commonly  referred  to  as  the  "bot- 
tom line." 

Current  ratio.  This  ratio  is  computed  by  di- 
viding current  liabilities  into  current  assets.  This 
ratio  is  the  generally  accepted  measure  of  the  abil- 
ity to  satisfy  short-term  obligations  and  indicates 
the  extent  to  which  the  claims  of  short-term 
creditors  can  be  covered  by  assets  that  can  be 
expected  to  be  converted  to  cash  in  a  period  corre- 
sponding to  the  time  obligations  become  due. 

Quick  ratio.  This  ratio  is  computed  by  de- 
ducting inventories  from  current  assets  and  divid- 


ing the  remainder  by  current  liabilities.  This  is  a 
measure  of  the  ability  to  pay  short-term  obligations 
without  relying  on  the  sale  of  inventories  and  is  a 
better  guide  to  short-term  liquidity  than  the  current 
ratio. 

Inventory  to  working  capital.  This  ratio 
demonstrates  the  proportion  of  working  capital  tied 
up  in  inventory  and  is  used  to  find  the  possible  loss 
to  the  company  resulting  from  a  decline  in  inventory 
values;  a  low  ratio  is  desirable. 

Debt  to  total  assets.  This  ratio  measures 
the  company's  obligations  to  creditors  in  relation  to 
all  the  funds  provided  to  the  company;  the  lower  the 
ratio,  the  greater  the  protection  from  losses  being 
incurred  by  creditors  in  the  event  of  liquidation. 
Generally,  the  maximum  debt  ratio  should  be  50%. 

Times  interest  earned.  This  ratio  is  deter- 
mined by  dividing  earnings  before  interest  and 
taxes  by  interest  expense.  This  measures  the  ex- 
tent to  which  earnings  could  fall  before  the  company 
is  unable  to  pay  annual  interest  costs;  the  lower  the 
ratio,  the  more  difficulty  the  company  will  have  in 
raising  additional  funds.  A  manufacturing  company 
should  cover  interest  more  than  four  times  and 
public  utilities  should  cover  interest  about  three 
times. 

Current  liabilities  to  net  worth.  This  ratio 
determines  the  amount  of  funds  supplied  by  owners 
compared  to  funds  provided  by  current  debt;  if  the 
owners  have  not  put  enough  funds  into  the  com- 
pany, long-term  creditors  will  be  less  willing  to 
provide  funds,  and  the  company  will  have  to  utilize 
short-term  financing  to  a  great  extent,  resulting  in 
greater  time  before  current  bills  are  paid.  Lower 
ratios  are  favorable. 

Fixed  assets  to  net  worth.  This  ratio  indi- 
cates the  extent  to  which  owner's  funds  are  in- 
vested in  assets  with  little  turnover.  Higher  ratios 
will  result  for  industries  that  are  capital  intensive 
versus  companies  that  are  labor  intensive. 

Debt  to  equity.  This  ratio  demonstrates  the 
relation  between  total  debt  of  the  firm  and  funds 
provided  by  the  owners;  the  lower  the  ratio,  the 
greater  the  protection  against  creditor's  losses  in 
the  event  of  liquidation.  Owners  may  desire  a  high 
ratio  because  this  will  magnify  earnings  and  prevent 
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possible  dilution  of  control  of  the  company  if  addi- 
tional equity  must  be  raised. 

Cash  velocity  ratio.  This  ratio  is  computed 
by  dividing  cash  and  cash  equivalents  into  sales. 
This  ratio  indicates  the  number  of  times  cash  has 
turned  over  within  the  year;  a  high  cash  velocity 
indicates  cash  is  being  used  effectively. 

Inventory  turnover.  This  ratio  is  computed 
by  dividing  the  cost  of  sales  by  inventory.  This  ratio 
indicates  the  liquidity  of  inventory;  a  high  inventory 
turnover  shows  that  inventories  are  being  held  to  a 
minimum,  and  a  low  ratio  may  indicate  obsolete  or 
slow-moving  stock. 

Fixed  assets  turnover.  This  ratio  is  com- 
puted by  dividing  sales  by  fixed  assets.  This  mea- 
sures the  utilization  of  fixed  assets;  a  low  ratio  may 
indicate  the  plant  isn't  being  utilized  as  effectively 
as  possible,  unless  the  company  is  labor-intensive. 

Average  collection  period.  This  ratio  is 
computed  by  dividing  accounts  receivable  by  aver- 
age daily  sales.  This  represents  the  average  time 
period  after  making  a  sale  before  cash  is  received, 
indicating  the  effectiveness  of  credit  and  collection 
policies;  these  may  need  to  be  strengthened  if  this 
ratio  is  on  the  increase. 

Total  assets  turnover.  This  ratio  is  com- 
puted by  dividing  sales  by  total  assets.  This  shows 
the  effectiveness  of  the  firm  in  utilizing  resources 
to  generate  sales;  a  high  ratio  may  indicate  over- 
utilization  of  assets,  and  a  low  ratio  may  indicate  an 
excessive  investment  or  idle  assets. 

Gross  operating  margins.  This  ratio  is 
computed  by  dividing  gross  operating  profit  by 
sales.  This  ratio  determines  how  far  unit  selling 
prices  may  decline  without  resulting  in  a  loss  from 
the  sale  of  units  and  how  products  are  priced  in 
relation  to  their  cost. 

Net  operating  margin.  This  ratio  is  com- 
puted by  dividing  profit  before  taxes  by  sales.  This 
shows  the  amount  each  sales  dollar  provides  to  the 
continuing  operation  of  the  firm  before  considera- 
tion of  income  taxes. 

Net  income  margins.  This  ratio  is  deter- 
mined by  dividing  net  profits  after  taxes  by  sales.  A 
lower  ratio  indicates  selling  prices  are  relatively 
low  and  total  costs  are  relatively  high;  thus,  a  small 


percentage  drop  in  sales  may  result  in  losses.  This 
ratio  indicates  the  profitability  after  taking  into  ac- 
count all  income  taxes  and  expenses  and  measures 
the  return  on  sales. 

Return  on  assets  ratio.  This  ratio  is  com- 
puted by  dividing  net  profits  after  taxes  by  total 
assets.  This  measures  rate  of  return  on  total  re- 
sources. 

Return  on  net  worth  ratio.  This  ratio  is 
computed  by  dividing  net  profit  after  taxes  by  net 
worth.  This  ratio  is  indicative  of  the  company's 
earning  on  the  investment  of  shareholders.  A  high 
or  increasing  value  is  favorable,  although  a  very 
high  value  may  indicate  intense  competition.  Addi- 
tionally, temporary  inventory  profits  may  be  the 
result  of  increasing  commodity  prices.  A  high  value 
could  also  be  caused  by  general  prosperity  or  a 
declining  position. 

Combined  coverage.  Combined  coverage  is 
computed  by  dividing  annual  interest  and  debt  costs 
plus  preferred  dividends  into  the  adjusted  operating 
profit  after  taxes  and  before  interest.  A  combined 
coverage  of  four  is  considered  acceptable  for  an 
industrial  company;  a  coverage  of  three  times  the 
combined  requirements  would  make  a  utility  stock 
high-grade. 

Dividend  payout.  The  dividend  payout  is  the 
percentage  of  earnings  on  common  stock  that  are 
paid  out  as  dividends.  Industrial  companies  average 
about  55%,  utilities  70%,  and  growth  companies 
less  than  55%. 

Book  value  per  share.  The  book  value  per 
share  is  determined  by  adding  the  stated  or  par 
value  of  the  common  stock  to  the  additional  paid-in 
capital  and  retained  earnings  accounts  and  dividing 
by  the  number  of  common  shares.  The  book  value 
would  be  lower  for  companies  in  which  preferred 
stock  is  entitled  to  share  in  additional  paid-in  capi- 
tal. The  book  value  is  not  as  important  an  indicator 
as  earnings  and  prospects  for  industrial  companies. 
However,  the  book  value  of  stock  for  financial  in- 
stitutions and  utilities  is  important  in  analysis. 

Additional  Investment  Applications 

On  the  following  pages  you  will  find  ten  more 
ways  in  which  you  can  use  your  microcomputer  as  a 
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Listing  2-2:  The  Growth  Rate  Calculator  Program 

100 

REM  CALCULATION  OF  THE 

GROWTH  RATE 

110 

A-0 

120 

INPUT  "ENTER  THE  NUMBER 

OF  DATA  POINTS' 

JZ(O) 

130 

PRINT  "ENTER  DATA  POINTS  SUCCESSIVELY" 

140 

FOR  B=l  TO  Z  <0> 

150 

INPUT  Z  (B) 

160 

NEXT  B 

170 

FOR  B=l  TO'Z  (0) 

180 

IF  Z  <B)-<0  THEN  PRINT 

"DATA  LESS  THAN 

ZERO  NOT  ALLOWED  "."GOT 

0  110 

190 

A»A+L08(Z(B)) 

200 

NEXT  B 

210 

A-(1/Z<0) )*A 

220 

Z6«0:Z7»0 

230 

FOR  B«1T0  Z(0) 

240 

Z6-Z6+ <LOB ( Z (B) ) -A) * <B- 

-<Z<0)/2) ) 

250 

Z7»Z7+<(B--<Z<0)/2>>r.2> 

260 

NEXT  B 

270 

V»Z6/Z7 

280 

PRINT  "THE  GROWTH  RATE 

IS";  INT(  <100*V)+.5)S"7." 

290 

PRINT 

300 

END 

tool  for  making  profitable  financial  decisions. 

Company  growth  rates.  The  program  in 
Listing  2-2  may  be  used  to  calculate  company 
growth  rates  using  historical  financial  data: 

The  intrinsic  value  of  a  stock.  This  value  is 
calculated  with  this  formula: 


I  = 


TC  «AMT 


CS 


Where      I  =  intrinsic  value 

TC  =  total  corporation  capital 
AMT  =  price  per  share 
CS  =  amount  in  dollars  of  capital  stock 

A  stock  valuation  program.  A  program  of 
this  type  could  find  current  and  future  values  of  a 
stock  and  the  rate  of  return  before  and  after  taxes. 
Commissions  would  be  considered  in  all  calcula- 
tions. 

Brokerage  commissions.  Commissions 
could  be  calculated  on  standard  and  odd  lots,  as  well 


as  for  stocks  selling  below  one  dollar  per  share. 

Earnings  per  share  estimation.  A  histori- 
cal balance  sheet  and  income  data  could  be  used  to 
estimate  future  earnings  for  a  given  stock;  future 
estimations  may  be  made  with  trend-line  analysis. 

An  options  valuation  program.  Using  the 
Black-Scholes  or  another  economic  model,  an  op- 
tions valuation  program  could  determine  the  op- 
timum hedge  ratio  and  spread  of  any  options.  When 
selling  partially  covered  calls  or  when  selling  puts 
and  shortening  stock,  an  options  writing  program 
could  be  used  to  find  the  maximum  profit  and  upper 
and  lower  break-even  points. 

A  program  of  this  type  is  presented  in  Listing 
2-3.  The  purpose  of  this  program  is  to  assist  the 
investor  in  planning  the  most  profitable  stock- 
option  buy  and  sell  strategy.  The  strategy  used  by 
the  program  involves  the  selling  of  options  against 
stock  bought;  this  is  usually  considered  the  least 
risky  strategy  and  it  is  often  the  most  profitable 
one.  For  example,  you  could  buy  100  shares  of 
stock  to  use  as  collateral  for  each  call  option  sold.  A 
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call  option,  which  is  sold  at  a  premium,  allows  the 
purchaser  the  right  to  buy  the  stock  at  a  certain 
price  (called  the  strike  point),  no  matter  what  the 
true  stock  price  becomes.  However,  the  option  is 
valid  only  for  a  certain  length  of  time,  known  as  the 
life  of  the  option.  This  computer  program  will  re- 
quest information  pertaining  to  the  stock  and  will 
calculate  the  value  of  the  stock  and  return  on  in- 
vestment (ROI)  over  a  range  of  40%  to  160%  of  the 
current  value.  Using  this  data,  the  investor  should 


be  able  to  decide  the  probability  that  a  certain  buy 
and  sell  strategy  will  be  profitable.  In  the  final 
analysis,  the  program  uses  a  set  of  financial  for- 
mulas to  recommend  a  specific  buy-sell  strategy 
and  then  prints  an  itemized  listing  of  all  costs, 
brokerage  fees,  proceeds  and  returns.  To  make  the 
best  use  of  this  program,  it  is  suggested  that 
you  study  references  concerning  stock-option 
strategies. 

Computation  of  short-term  insolvency. 


Listing  2-3:  The  Stock  Option  Analysis  Program 

10  REM  STOCK  OPTION  ANALYSIS  PROGRAM 

20  ' 

30  DIM  D(12) ,A*(20) , B<10> , F<12) ,K$(12> 

40  FOR  D4=l  TO  12 

50  READ  D(D4):F(D4)=D4:READ  K*<D4) 

60  NEXT  D4 

70  INPUT  "ENTER  THE  NUMERICAL  MONTH,  DAY,  YEAR  (EG.  1 ,  3,  79)  "  ",  Ml ,  D9, 

80  INPUT"IS  THE  STOCK  TO  BE  BOUGHT  ON  MARGIN  (1=YES,  2=N0)";M 

90  INPUT-ENTER  THE  X  MARGIN  RATE"!M2 

100  IF  M=l  THEN  D5=.5  ELSE  DS-1 

110  INPUT "ENTER  THE  NAME  OF  THE  STOCK  OR  ID,  THE  DIVIDEND  IN  *'S 

PER  SHARE  PER  QUARTER" 5 D6*, D7 

120  INPUT "ENTER  THE  NUMBER  OF  SHARES  TO  BE  PURCHAED  (MULTIPLE  OF 

100  SHARES) "?D8 

130  INPUT "ENTER  THE  PRICE  PER  SHARE " ; P9 

140  INPUT"SELECT  MARKET  DNYSE,  2)0TC"JE 

150  INPUT"ENTER  THE  .EXPIRATION  MONTH  (EG.  1 -JANUARY, 2-FEBRUARY.  .  .  ) 

"  5  E2 

160  INPUT"ENTER  THE  STRIKE  PRICE" ! E3 

170  INPUT "ENTER  THE  COST  PER  OPTION  (MULTIPLY  PRICE  BY  100) ";E4 

ISO  E5=DS/100 

190  INPUT"ENTER  THE  JANUARY, APRIL, JULY, OCTOBER  PREMIUMS" 5 B < 1 ), B (4) 

,B(7),B(10) 

195  C4=100:  C3=100 

200  FOR  C8=l  TO  10  STEP  3 

210  IF  B(C8)=0  THEN  590 

220  C9=B(CS) 

230  A4=C8*30.4225 

240  A8=A4+A7-( (Ml-1 ) *30. 4225) -D9 

250  C=P9*C3 

260  FOR  A9=l  TO  2 

270  C4=A9*C4 

280  D=C4*C9 

290  B4=D*.034+.017*C 

300  B5=B4+C-D 
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310  B6=B5*.085*A8/365 

320  D1=B6+B5 

330  PR I NT "MONTH  OF  CALL"3CB 

340  PRINT" INITIAL  INVESTMENT" ; B5 

350  PR I NT "TOTAL  INVESTMENT" J Dl 

360  PR I NT "EFFECTIVE  WRITINS  RATIO" 5 A9 

370  PRINT 

380  PR I NT "STOCK  PRICE         RETURN  ROI  ROI/ 

YR" 

390  FOR  D2=-4  TO  6 

400  Al=(l-(. 1*D2) )*C 

410    IF   A1/C3X.25+E3)    THEN    460 

420  B9=0 

430  B7=A1-D1 

440  BOTO  480 

450  D1=(1-A9)*A1+D1 

460  B7=C3*E3-D1--100*<A9-1)*E3 

470  B9=( ( <A1/C3+1)-<1.068*C9) ) *100) / < 1 . 06B*C9> 

480  B8=B7/D1*100 

490  C2=A1/C3 

500  D3=B8/(A8/365) 

510  PRINT  C2,B7,B8,D3 

520  NEXT  D2 

530  NEXT  A9 

590  NEXT  C8 

600  IF  A8>180  THEN  PRINT"LONB  TERM" 

610  PRINT 

620  E6=INT(E5*E3*100) 

630  E7=INT(E4*E5) 

640  E8=Y 1*365 

650  E9=D9+D(M1)+E8 

660  F=E8+20+D(E2) 

670    F1=F-E9:IF   FKO    THEN   Fl=Fl+365 

680   F2=INT((Fl/90)+»5) 

685   F3=INT(F2*D7*D8) 

690  F4=F3+E7+E6 

700  F5=INT(P9*D8) 

710  F6=INT(D5*F5) 

720  F7=F5-F6 

730  F8=E 

750  F9=F5 

760  B=D8/100 

770  SOSUB  1150 

780  B1=B2 

790  F9=E6 

800  B=D8/100 

810  SOSUB  1150 

820  B3=S2 

830  F9=E7 

840  S=E5 

850  F8=3 

860  BOSUB  1150 
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870 

SBO 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1029 

1 030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1110 

1115 

1120 

1125 


G4=G2 

G5=F7-E7-F3+G3+G4+G1 

IF  D5=l  THEN  G6=0  ELSE  G6=INT ( ( (M2/100) *G5) *F 1/365) 
G7=G6+G3+F7+G4+G 1 +F6 
G8=F4-G7 

G9=F6-F3-E7+G6+G3+G 1 +G4 
H=INT(  <G8*1000)  /G9.)  /10 
H2=INT<  UG7-F3--E7)*100)/D8)/100 
H1=INT(3650*H/F1)/10 

INPUT"TYPE  ENTER  TO  CONTINUE" ; A*: PRINT 

PR  I  NT  "  COVERED  WRITE:  ";D6$.i  "   DATE  (MMDDYY)  :  "  5  Ml  5  D9;  Yl 
PR I NT "HEDGE  STRATEGY: " 
PRINT"BUY";D8; "  SHARES-  PRICE=  *"P9 


print"SELL";e5;"  ",-k*<E2) ;E3; 

INPUT "TYPE  ENTER  TO  CONTINUE" 
CLS'  CLEARS  SCREEN 
PRINT"EXPENSES: " 

IMMEDIATE 
LOAN  (507.) 
BROKER'S  FEES 
OPTION 
IN 
OUT 
MARGIN  COST 


'S  AT  *";E4; "EACH" 


A* 


$" 
*" 
*" 
*" 
*" 
*" 


5  F<S 
5F7 

5  64 
5G1 
SG3 
;G6 


*"SG7 
CONTINUE": 


!E6 
5E7 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PR I NT "TOTAL 

INPUT "PRESS  ENTER  TO  CONTINUE"? A* 

CLS 

PRINT"  INCOME."  " 

PRINT"    STOCK      * 

PRINT"    OPTION     * 

PRINT"    DIVIDENDS  *"?F3 

PRINT" " 

PRINT"TOTAL         *";F4 

PRINT: PR I NT "THE  RETURN  ON  YOUR  MONEY  IS";H;"%  <*"5G8;"  ON  *" 
5INT(G9);")" 

1130  PRINT"F0R"JF1; "  DAYS, "5  HI ; "X  ANNUALLY." 

1140  PRINT"THE  BREAK-EVEN  POINT  IS  A  PRICE  OF  *" ; ( INT (H2*10) ) /10 
1145  PRINT: END 
1150  G2=((.009*F9)+22)+(6*G) 
1160  ON  F8  GOTO  1180,1190,1200 
1170  IF  G2<25  THEN  G2=25 
1175  RETURN 

1 1 80  G2= I NT ( . 7*G2 ) : RETURN 
1190  G2=21*G:  RETURN 
1200  G2=INT<. 82*62) :  RETURN 

1300  DATA  0, JANUARY, 31, FEBRUARY, 59, MARCH, 90, APRIL, 120, MAY, 151, JU 
NE ,  1 82 ,  JULY ,212,  AUGUST , 243 , SEPTEMBER , 272 , OCTOBER , 304 , NOVEMBER , 33 
4, DECEMBER 
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In  this  "Z-Score"  computation  based  on  an  Ameri- 
can Institute  of  Certified  Public  Accountants 
timesharing  program,  the  short-term  liquidity 
trend  score  indicates  whether  a  company  is  likely  to 
face  financial  difficulties  in  the  near  future. 

Z  =  .012*((G-L)/I)  +  .014*(W/I)  + 
.033*  ((P+E)/I)  +  .006*  (W/M)  + 
.999*(S/I) 

where  G  =  current 

L  =  current  liabilities 

I  =  total  assets 
W  =  net  worth 

P  =  profit  before  income  taxes 

E  =  interest  changes 
M  =  total  liabilities 

S  =  sales 

Z  =  "Z  score" 

Stock  alpha  and  beta.  In  this  approach  to 
analysis,  the  investor  compares  movement  of  a 
stock  over  a  period  of  time  with  movement  of  a 
market  average.  This  can  be  best  measured  by 
comparing  the  percent  change  in  a  given  stock's 
price  with  the  percent  change  in  the  market  as  a 
whole  over  several  large  recent  market  fluctuations 
and  deriving  a  result  in  the  form  y=a+bx  where 
y=percent  change  in  a  stock's  price  given  x  as  the 
percent  change  in  the  market  level.  The  constant  a 
is  called  alpha  and  is  a  measure  of  the  stock's  abso- 
lute continuing  movement;  high  positive  alphas  are 
always  attractive  in  stocks.  The  coefficient  b  is 
called  the  stock's  beta  and  is  a  measure  of  the  riski- 
ness of  a  given  stock.  High  betas  should  produce 
good  relative  performance  in  a  bull  market,  but 
relatively  poor  performance  in  a  declining  market. 
Beta's  may  be  calculated  separately  as  a  function  of 
such  factors  as  size  of  the  company  involved,  its 
capital  structure  (for  example,  its  debt/equity 
ratio),  return  on  equity,  earnings  consistency,  and 
so  forth.  You  may  experiment  with  multiple  linear 
regression  in  determining  the  relationship  between 
beta's  and  these  or  other  variables.  In  general,  the 
greater  the  beta,  the  cheaper  the  stock  should  seem 
to  be  and  the  greater  the  appreciation  potential.  A 


risk  versus  benefit  analysis  may  be  conducted, 
with,  for  example,  betas  charted  versus  potential 
appreciation  based  on  present  discounted  value  of 
the  price  of  the  stock. 

Equations  used  to  independently  determine 
stock  betas  are  as  follows  and  are  well-suited  for 
incorporation  into  a  portfolio  analysis  program: 

Stock  Beta 


Beta  = 


Variance  = 


(Covariance  of  market  and  \ 
stock  risk  premiums     / 

Variance  of  market  risk  premium 

2    (market  risk  premium-ave. 
time  market  risk  premium)2 


Convariance  = 


2    (SRP-ave.  SPR)* 
time  (MRP-ave.  MRP) 


SRP  =  stock  risk  premium 

MRP  =  market  risk  premium 

risk  premium  =  (rate  of  return) - 

(risk  free  rate  of  return) 


risk  free  rate  of  return  = 


1 


12 '(annual  rate  of 
a  3  month  T-bill) 


rate  of  return  = 


(price  at  month  end  +  dividend) 
-  (price  at  month  start) 

price  at  month  start 


For  market  statistics  use  the  Standard  &  Poors 
500  Stock  Index. 

Portfolio  Beta 

2  (stock  beta)  • 

Beta  =    portfolio       (%  of  market  value) 


%  market  value  = 


market  value  of  a  stock 
total  market  value 
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market  value  of  a  stock   =  current  price  x  no.  of 
shares 

Inflation  rate  effect.  An  oversimplified  but 
often  useful  method  of  forecasting  the  effect  of  a 
given  inflation  rate  on  the  stock  market  is  as  fol- 
lows. First,  assume  that  the  cost  of  money  is  con- 
stant at  three  percent.  Add  to  this  value  a  one- 
percent  constant  that  will  be  assumed  to  be  the  risk 
factor  for  owning  stocks  instead  of  bonds.  To  this 
sum  add  the  current  inflation  rate.  Divide  this  final 
sum  into  100;  the  result  is  the  average  stock  market 
multiple  of  earnings.  Now,  multiply  this  result  by 
the  sum  of  the  estimated  yearly  earnings  of  the 
thirty  Dow  Jones  Industrial  stocks.  If  the  sum  of  the 
estimated  earnings  is  not  known,  a  simple  com- 
puter program  could  determine  earnings  for  the 
industrial  stocks  from  the  newspaper  listings  of 
price  and  price/earnings  ratios  (earnings  =price/ 
price-earnings  ratio);  a  method  of  determining  fu- 
ture earnings  growth  would  have  to  be  employed. 
The  final  product  calculated  is  a  projected  Dow 
Jones  industrial  stock  average. 

The  calculations  would  be  as  follows,  assum- 
ing an  inflation  rate  of  five  percent  and  estimated 
Dow  industrial  stock  earnings  of  $110: 


100 


(3%  +  1%  +  5%) 


•  110,  =  1222. 


Calculation  of  the  future  value  of  an  in- 
vestment. You  can  use  the  program  in  Listing  2-4 
to  calculate  how  much  an  investment  will  be  worth 
in  the  future. 

Investment  analysis  using  interest  rate 
formulas.  The  set  of  interest  rate  formulae  out- 
lined below  may  be  used  to  assess  and  compare  the 
values  of  investments  with  respect  to  time  and 
money,  considering  that  money  today  is  inherently 
worth  more  than  the  same  money  tomorrow.  In  an 
investment,  money  passes  from  and  to  the  investor 
in  the  form  of  borrowed  money,  loaned  money, 
dividends  received,  installment  loan  payments 
made,  and  so  on;  these  are  called  cash  flows.  The 
resulting  profit  or  loss  can  be  measured  as  an  inter- 
est rate,  the  rate  being  absolute  throughout  the 
whole  period  of  investment  or  applying  only  to  a 
specific  time  interval.  A  $30  profit  on  a  $100  in- 
vestment four  years  ago  is  a  30%  profit  in  absolute 
terms,  but  when  it  is  measured  at  an  annual  rate 
(using  the  equations  below),  the  profit  comes  to 
6.8%. 

The  interest  equations  below  may  be  divided 
into  two  sets:  equations  1,  4,  7,  and  9  are  used  to 
measure  investments  in  which  transactions  occur 
only  twice— once  at  the  beginning  and  once  at  the 
end  of  the  investment  period.  The  other  eight 
equations  apply  to  problems  in  which  constant  dol- 
lar transactions  occur  at  regular  intervals.  An  in- 
stallment loan  is  a  good  example  of  this  kind  of 


Listing  2-4:  The  Future  Value  Program 

100 

REM  CALCULATION  OF  THE  FUTURE  VALUE  OF  AN 

INVESTMENT 

110 

CLS  'CLEAR  SCREEN 

120 

DEFDBL 

F,  D,  E,  B,  C,  A 

130 

INPUT 

"ENTER  THE  CONSUMER  PRICE  INDEX 

FOR 

PREVIOUS  YEAR";  F 

140 

INPUT 

"ENTER  THE  CONSUMER  PRICE  INDEX 

FOR 

CURRENT  YEAR" 5  E 

150 

INPUT 

"ENTER  THE  PRESENT  VALUE  OF  THE 

INVESTMENT  (OR  PRODUCT 

/SALARY) "i 

C 

160 

INPUT 

"ENTER  THE  NUMBER  OF  PERIODS  TO 

BE  CALCULATED"}  B 

170 

A=<100*(E-F)/F)/100 

ISO 

D=INT((C*(A+l)CB)*100+.5)/100 

190 

PRINT 

200 

PRINT 

"THE  FUTURE  VALUE  IS:  *",D 

210 

PRINT 

220 

END 
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problem.  If  you  borrow  $4000  to  buy  a  car  and  pay 
off  the  loan  over  36  months  at  12%  interest,  equa- 
tion 11  may  be  used  to  compute  the  amount  for  each 
payment  ($132.86). 

It  is  important  to  note  that  there  is  no  formula 
for  solving  for  interest  rates  directly  in  the  second 
set  of  equations,  because  i  cannot  be  isolated  on  one 
side  of  the  equation.  The  only  method  to  solve  for 
interest  rates  in  this  situation  is  to  use  a  "brute- 
force"  approach  in  which  the  computer  tries  values 
for  i  and  solves  for  F  or  P  until  the  right  answer  is 
found.  The  value  for  i  would  be  successively  ap- 
proximated. 

The  formulae  in  Table  2-1  will  be  used 
throughout  this  chapter  in  discussing  loans, 


mortgages,  annuities,  and  real  estate  evaluation. 
The  uses  are  as  varied  as  the  diversity  of  invest- 
ments. The  personal  computer  becomes  useful  in 
answering  "what  if?"  questions  involving  changes 
in  interest  rates,  time  periods,  and  other  variables 
with  these  equations  or  useful  in  solving  equations 
5  and  6  in  Table  2-1,  which  require  an  iterative 
approach. 

Financial  databases.  The  easiest  way  to 
enter  information  into  stock-market  programs  is 
over  the  telephone.  Various  database  services  sup- 
ply detailed  financial  information— both  current  and 
historical— which  can  be  retrieved  by  any  computer 
through  a  telephone  modem.  On-line  services  offer 
most,  if  not  all,  of  the  securities  you  are  likely  to  be 


This  table  shows  the  appropriate  formulae  to  use  given 
three  input  parameters  and  a  required  output  parameter. 


no.  of  uniform  periods  (n) 

interest  rate  per  period  (i) 

given            present  value  (P) 

future  value  (F) 

uniform  payments  (R) 


X      X      X  X   X   X 

XXX  XXX 

X  X   X         X   X 

X  XXX 

X  XX         XX 


RBQUIRED 


5.  /  =  £(!- [1  -/]"") 


6.  /- j([l  +»]"-!) 


n 
i 

P 
F 
R 


7    8 
9        10 
11  12 


4  5  6 


1  2  3 


1.  P  = 


(1  +  /)" 


8.  P  =  R 


1  +  (1  +  Q- 


9.  F  =  P(l  +  iy 

,0+iT-l 


10.  F=  Pi- 


ll. R  =P 


1  -  (1  +  0" 


12.  R  =  F 


(1  +  V  -  1 


Table  2-1.  Look-up 

Table  of  Financial  Formulae. 
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interested  in.  For  instance,  one  of  the  popular  per- 
sonal computer  networks  (CompuServe)  offers  the 
following  financial  information  for  instant  retrieval: 

•  Figures  on  more  than  9,000  securities,  updated 
throughout  each  trading  day— no  need  to  wait  for 
day-old  stock  values  in  the  newspaper. 

•  Detailed  descriptive  and  financial  information  on 
thousands  of  major  publicly-held  companies. 

•  Current  and  historical  information  on  more  than 
40, 000  stocks,  bonds,  and  options. 

•  Continually  updated  information  on  prices  and 
basic  news  stories  incorporating  market  com- 
mentary and  statistics. 

•  Specialized  reports  on  commodities,  today's 
economy,  and  implications  for  the  future. 

•  Financial  commentary  from  the  nation's  leading 
news  publications. 

Alternatively,  companies  such  as  Standard  & 
Poor  offer  market  statistic  updates  sent  periodi- 
cally on  floppy  disk.  The  S&P  package  costs  about 
$500  per  year  and  provides  monthly  updates  of 
some  100  types  of  basic  financial  data,  ranging  from 
sales  to  assets,  for  about  1,500  publicly  traded 
companies. 

Other  databases  specialize  in  business  in- 
formation and  can  supply  text  of  leading  industry 
newsletters,  with  extensive  search  and  indexing 
capabilities.  The  NewsNet  Network,  945  Haver- 
ford  Road,  Bryn  Mawr,  PA  19010,  for  instance, 
provides  full  text  of  over  125  business  newsletters 
in  the  following  areas: 

advertising  and  marketing 

aerospace 

automobile  industry 

behavioral  sciences  and  social  services 

corporate  communications 

education 

electronics  and  computers 

energy 

entertainment  and  leisure 

environment 

farming  and  food 

finance,  accounting,  and  taxes 


general  business  management 

government  regulations  and  law 

international  affairs 

investments 

labor 

metals  and  mining 

office  automation 

politics 

publishing  and  broadcasting 

real  estate 

politics 

telecommunications 

transportation 

Interest  calculations.  The  microcomputer 
can  be  used  to  calculate  simple,  compound  and  true 
interest.  A  program  could  be  written  to  calculate 
the  exact  number  of  days  between  two  dates,  and 
number  of  months,  days,  and  years  in  the  interest 
period:  leap  years  would  be  accounted  for.  The 
following  formula  would  be  used: 


cpd 


100  360 

where  i  =  interest  on  the  capital 

c  =  capital,  invested  or  borrowed 
p  =  rate  of  interest 
d  =  number  of  days 

Compound  interest  can  also  be  calculated. 
Given  three  of  the  four  variables  F,  P,  i,  and  n,  the 
fourth  may  be  solved  for  using  equations  1,  4,  7,  or  9 
in  Table  2-1. 

The  true  interest  is  calculated  as  follows: 


24F 


R  = 


m  I    (m  +  1) 

m 

where  R  =  the  true  interest  rate 
F   =  finance  charge 
m  =  number  of  months 
I    =  monthly  installment 

The  BASIC  program  in  Listing  2-5  computes 
the  true  annual  interest  rate.  An  ideal  application 
involves  evaluation  of  installment  loans. 
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Listing  2-5:  The  True  Annual  Interest  Rate  Program 

10  REM  TRUE  ANNUAL  INTEREST  RATE  COMPUTATION 

20  REM  FOR  USE  WITH  INSTALLMENT  LOANS 

25  CLS  'CLEAR  SCREEN 

30  INPUT "ENTER  THE  AMOUNT  OF  THE  LOAN  (WITHOUT  INTEREST) " ; B 

40  INPUT "ENTER  THE  AMOUNT  OF  EACH  PAYMENT" 5 A 

50  INPUT  "ENTER  THE  TOTAL  NUMBER  OF  PAYMENTS" ",  C 

60  INPUT "ENTER  THE  NUMBER  OF  PAYMENTS  PER  YEAR" 5 D 

70  PR I NT: PR I NT 

80  IF  C=l.  THEN  680 

90  IF  C*A>=B  THEN  150 

100  PRINT: PRINT 

110  PRINT"THE  PAYMENTS  SUM  TO  LESS  THAN  THE  AMOUNT  OWED"; 

130  PRINT 

135  INPUT "TYPE  ENTER  WHEN  READY"; A* 

140  GOTO  10 

150  E=0:  F=100 

160  BOSUB  260 

170  IF  A=S  THEN  360 

180  IF  A>B  THEN  220  ELSE  E=E-F:  BOTO  230 

220  E=E+F 

230  F=F/2 

240  IF  F<.0001  THEN  360 

250  BOTO  160 

260  H=E/(100*D) 

270  J=H+1 

280  IF  C*J<=75  THEN  310 

290  G=B*H 

300  RETURN 

310  IF  6>1  THEN  G=B*JCC*H/ ( J  CD-I )  ELSE  G=B/C 

320  RETURN 

360  E=.01*INT(.05+100*E) 

370  IF  E< 199.5  THEN  430 

380  PRINT 

390  PR I NT "THE  INTEREST  RATE  IS  TOO  HIGH,  RE-ENTER"; 

420  SOTO  10 

430  PRINT:  PR  I  NT  "TRUE  ANNUAL  INTEREST  RATE=  "JE;""/." 

440  PRINT: PRINT 

450  INPUT"TYPE  ENTER  WHEN  READY" 5  A* 

460  BOTO  10 

680  E=<A/B-1)*D 

690  E=100*E 

700  BOTO  360 


Minimum  investment  for  withdrawals,  withdrawal  and  an  ending  balance  of  $0.  A  retiree 

This  formula  may  be  used  to  determine  the  might  use  this  formula  to  compute  the  amount  to 

minimum  investment  required  to  allow  regular  invest  in  a  savings  account  at  6  percent  interest  to 

withdrawals  of  a  given  amount  over  a  given  time  provide  monthly  withdrawals  of  $100.00  for  10 

period,  assuming  compounded  interest  with  each  years. 
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p  = 


i    \  (1  +  i/N)Ny 


where  P  =  initial  investment 

R  =  amount  of  regular  withdrawal 
i  =  nominal  interest  rate 
N  =  number  of  withdrawals  per  year 
Y  =  number  of  years 

Mortgages 

The  computer  can  be  very  useful  to  the  home 
buyer  in  simplifying  the  many  financial  options 
available.  You  can  use  your  computer  to  determine 
mortgage  payments  based  on  the  interest  rates 
available,  the  length  of  the  life  of  the  mortgage,  and 
the  amount.  With  recent  swings  in  interest  rates, 
knowing  what  you  will  be  paying  at  any  given  inter- 
est can  be  very  important;  a  difference  of  a  half  or 
one  percent  can  be  substantial.  This  information  is 
also  important  in  budget  planning— in  determining 
how  much  of  the  family  income  must  be  allocated  to 


mortgage  or  loan  payments.  You  can  do  a  "What  if?" 
analysis;  that  is,  if  interest  rates  are  predicted  to 
decline  by  3%  next  year,  is  it  best  to  buy  or  wait? 
With  your  microcomputer  and  the  financial  for- 
mulae outlined  in  Table  2-1,  the  financial  ramifica- 
tions of  home  buying  or  other  investments  can  be 
easily  determined. 

It  may  be  worth  your  while  to  analyze  a 
mortgage  agreement  on  your  computer  before 
signing  any  contracts.  A  yearly  amortization  pro- 
gram could  calculate  a  schedule  of  payments,  the 
annual  debt  service,  the  mortgage  constant,  the 
remaining  balance,  the  payment  to  principal,  the 
payment  to  interest,  the  accumulated  principal,  and 
the  accumulate  interest  for  each  year.  A  general 
amortization  program  could  solve  for  the  following 
additional  factors:  the  number  of  payments  to  reach 
a  certain  balance,  the  payment  amount,  the  annual 
percentage  rate,  and  the  principal  amount.  Listing 
2-6  is  a  sample  mortgage  schedule  program. 

Special  programs  could  calculate  the  above 
values  for  wraparound  mortgages  and  determine 
the  price  and  yield  of  discounted  mortgages. 


Listing  2-6:  The  Mortgage  Schedule  Program 


100  REM  MORTGAGE  SCHEDULE  CALCULATION 

110  REM  BASED  ON  MONTHLY  PAYMENT 

120  DIM  A(3)  ,  B.<3) 

130  B*="##    *#####.##    $#####.##     $#####>##     $########1, 

140  INPUT  "ENTER  THE  NUMBER  OF  YEARS  OF  THE  MORTGAGE" ;X 

150  INPUT  "ENTER  THE  YEARLY  INTEREST  RATE" 5X1 

160  INPUT "ENTER  THE  AMOUNT  OF  THE  MORTGAGE" !B 

170  B1=12*X 

1B0  X1=X1/1200 

190  B2=B*X1/(1-<1/(1+X1) ) CB1) 

200  T=0 

210  b(2)=o:b<i)=o:B3=«B2*bi-b:a<2)=o:A(3)=b:a(1)=o 

220  PRINT  USING  "MONTHLY  PAYMENT  IS  ###.##" i  B2 

230  PRINT 

240  PRINT  "YEAR  PRINCIPAL  PAID  PRINCIPAL  LEFT  INTEREST  PAID  TOTAL 

PAID" 

250  FOR  1=1  TO 

260  FOR  J  =1T0 

270  T=T+B2 

280  B(1)=A(3)*X1 

290  A(1)=B2-B<1) 

300  A<2)=A<2)+A<1) 


X 
12 
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310  A<3)=A<3)-A(1) 
320  B<2)=B<2)+B<1) 
330  B(3)=B<3)-B<1> 
340  NEXT  J 
350  PRINT  USING  B$; 
360  NEXT I 
370  PRINT 
380  END 


I,A<2),A(3),B(2),T 


Loans 

An  amortization  schedule  for  a  loan  as  well  as 
the  time  required  for  repayment  can  be  calculated 

LOAN  AMORTIZATION  SCHEDULE 


by  the  loan  amortization  program  in  Listing  2-7. 

Here  is  a  sample  run  showing  how  this  pro- 
gram functions. 


PRINCIPAL=$4800.00 
#OF  PERIODS=12 
INTEREST  RATE=5.6% 


PAYMENT 

REMAINING 

MONTHLY 

PRINCIPAL 

INTEREST 

NUMBER 

PRINCIPAL 

PAYMENT 

PAYMENT 

PAYMENT 

1 

4410.16 

412.24 

389.84 

22.40 

2 

4018.51 

412.24 

391.66 

20.58 

3 

3625.02 

412.24 

393.48 

18.75 

4 

3229.70 

412.24 

395.32 

16.92 

5 

2832.54 

412.24 

397.16 

15.07 

6 

2433.52 

412.24 

399.02 

13.22 

7 

2032.64 

412.24 

400.88 

11.36 

8 

1629.89 

412.24 

402.75 

9.49 

9 

1225.26 

412.24 

404.63 

7.61 

10 

818.74 

412.24 

406.52 

5.72 

11 

410.32 

412.24 

408.42 

3.82 

12 

0.00 

412.24 

410.32 

1.91 

OVERALL  TOTALS 

$4946.84 

$4800.00 

$146.84 

Listing  2-7:  The  Loan  Amortization  Program 

10  REM  LOAN  AMORTIZATION  CALCULATOR 

20  CLS  '  CLEAR  SCREEN 

30  PR I NT "LOANS"  : PRINT 

40  PRINT  "SELECT  :  1)  PAYMENT  AMOUNT  CALCULATION" 

50  INPUT"2)TIME  OF  PAYMENT  CALCULATION" 5  A 

60  ON  A  SOTO  70,2000 

65  BOTO  40 

70  INPUT  "ENTER  THE  AMOUNT  OF  THE  LOAN"; AM 

SO  INPUT  "ENTER  THE  NUMBER  OF  PAYMENTS  (YRS.  *  12  USUALLY) "5 N 

90  INPUT  "ENTER  THE  ANNUAL  INTEREST  RATE"; I 
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100  B=I/1200 

110  C=N 

120  INPUT  "ENTER  THE  MONTH  OF  THE  FIRST  PAYMENT  (1-12) ";M 

130  INPUT  "ENTER  THE  YEAR  OF  THE  FIRST  PAYMENT" 5 Y 

140  D=l:  FOR  X  =  l  TO  C 

150  D=(l  +  B)*D 

160  NEXT  X 

170  d=i/d:f=»b/(i-D)*am 

180  G=F:SOSUB  5000 
190  F=S 

200  h=y:j=i:l=am:k=m-i:e=o:p=o 

210  CLS  '  CLEAR  SCREEN 

220  PRINT  "AMORTIZATION  TABLE" 

230  PRINT  "MONTHLY  PAYMENT:  *";F 

240  PRINT  "AMOUNT  OF  LOAN:  *";  TAB (14);  AM;  TAB (24) ;     "INTEREST  RA 

TE=";l; 

260  IF  S=0  THEN  PRINT:  SOTO  280 

270  PRINT  "TERM+";  TAB (51) J  N;  TAB (55)  "MONTHS" 

280  PRINT  "NO. "; 

290  PRINTTAB(S); "DATE"; TAB (19); "INTEREST";  TAB(33);  "PRINCIPAL"; 

TAB (50)  "BALANCE" 

300  FOR  X=JT0J+9 

310  K=K+1 

320  IF  K=13  THEN  K=1."H=H+1 

330  A2=L*B:6=A2 

340  BOSUB  5000 

350  A2=G:  S=F-A2:B=S 

360  BOSUB  5000 

370  S=S 

380  l=l-s:b=l 

390  BOSUB  5000 

400  l=b:  p=A2+p:e=s+e 

410  PRINT  J;  TAB(6);  K;     "-"',    H;  TAB(19);  A25  TAB(33);S;  TAB(49)fL 

420  IF  J=C-1  THEN  600 

430  J=J+1 

440  NEXT  X 

450  S=P 

460  BOSUB  5000 

470  P=B 

480  PRINT  "TOTAL  INTEREST  TO  DATE  *";P;"  TOTAL  PRINCIPA 

L  TO  date*";e 

490  INPUT  "TYPE  ENTER  TO  SEE  NEXT  PASE";A1 

500  GOTO  210 

600  A2=B*L 

610  B=A2:  BOSUB  5000 

620  A2=b:s=l:A3=f:f=s+A2:k=k+i 

630  IF  K=12  THEN  K=  l:H=H+l 

640  L=L-S."J=J+l:E=S+E:P=P+A2 

650  PRINT  J;  TAB(6);K5 "-"; TAB ( 19) ; A2; TAB (33) 5S;TAB(49) ;L 

660  PRINT  "TOTAL  INTEREST  TO  DATE=*";P 

670  PRINT  "TOTAL  PRINCIPAL  TO  DATE  =  $";E 

680  PRINT  "FINAL  PAYMENT=* " ; F 
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2000 

CLS  ' 

2010 

INPUT 

2020 

INPUT 

2030 

INPUT 

2040 

INPUT 

2050 

INPUT 

690  G=F:  GOSUB  5000 

700  F=G!  F=A3 

710  INPUT  "TYPE  ENTER  WHEN  READY" ;A4 

720  GOTO  ?*5 

CLEAR  SCREEN 

"ENTER  THE  AMOUNT  BORROWED" ;B1 

"ENTER  THE  INTEREST  RATE/YR. " ; B2 

"ENTER  THE  MONTHLY  PAYMENTS" 5 E 

"ENTER  THE  MONTH  PAYMENTS  BEGIN  (1-12) "5 M 

"ENTER  THE  YEAR  OF  THE  BEGINNING  PAYMENT" 5 Y 

2060  B3=B1*B2/1200-E 

2070  IF  B3<=0  THEN  2130 

2080  print:  print:  print:  print 

2090  print  "the  minimum  payment  =  *"5  b1*b2/1200 

2100  GOTO  2010 

2130  B=1-B2/1200*B1/E 

2140  X=B: GOSUB  4000 

2150  B=R 

2160  F=l+B2/1200 

2170  X=F:  GOSUB  4000 

2180  F=R 

2190  J=-(B/F) 

2200  PRINT 

2210  IF  B3=0  THEN  PRINT  "PAYMENTS  COVER  INTEREST  ONLY": GOTO  2230 

2220  PRINT  "NO.  OF  MONTHS  FOR  PAYMENTS=";J 

2230  H=INT(J/12):  N=J-H*12 

2240  IF  N>1  THEN  N=N+1 

2250  N=INT  (N):C=12*H+N 

2260  IF  N>11  THEN  H=H+1 : N=N-12 

2270  IF  B3=0  THEN  S=0:  GOTO  2290 

2280  PRINT"="5H5 "YEARS+  "JN5  "MONTHS  TO  PAY  LOAN" 

2290  PRINT:  PRINT: PRINT 

2300  INPUT  "TYPE  ENTER  TO  CONTINUE" 5 A$ 

2310  J=N  B=B2/1200:  F=E:  N=N+12#H:  AM=B1 ."  R=B2 

2320  F=F/B3 

2325  F=E: 1=B2 

2330  GOTO  180 

4000  AM=(X-1)/<X+1> 

4010  C=AM*AM*AM 

4020  R=2*  <  AM+ 1 /3*C+ 1 /5*AM*AM*C+ 1 /7*C*C*AM+ 1 /9*C*C*C+1 /l 1 *C*C*C*AM 

*AM) 

4030  RETURN 

5000  G=INT( (G-INT(G) ) *100+. 50001 ) /100+INT (G) 

5010  RETURN 


Loan  with  points.  Points  are  a  percentage  of 
the  value  of  a  loan  that  is  paid  at  the  start  of  the  loan 
period.  Theoretically,  the  seller  pays  the  points, 
but  in  practice  it  does  not  matter  who  pays— the 
price  of  the  house  increases  with  the  addition  of 
points. 


One  point  represents  one  percent  of  the 
mortgage  value.  It  must  be  paid  at  the  beginning  of 
the  loan.  The  important  question  to  consider  is  how 
does  the  addition  of  points  affect  the  annual  per- 
centage rate  actually  being  paid  for  the  loan?  The 
program  in  Listing  2-8  will  calculate  this  value 
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Listing  2-8:  The  Loan  with  Points  Program 

10  REM  LOAN  WITH  POINTS 

20  INPUT "ENTER  LOAN  AMOUNT,  NUMBER  OF  POINTS" 5 L,P 

30  INPUT "ENTER  ANNUAL  PERCENTAGE  RATE,  YEARS" 5  A, Y 

40  p=p*.oi:a=.oi*a/12:y=y*i2 

50  R=L*< <A#(A+1) CY)/( (A+l) CY-1) > 

60  PR  I  NT  "MONTHLY  PAYMENT-  $"||R 

70  FOR  D=l  TO  100 

75  REM  C  MEANS  TO  RAISE  TO  A  POWER 

SO  F=„0001*D+A:X=<1-P)*L*(  (F*<l+F)  CY)/<  (1+F)  CY-1)  ) 

90  IFX>R  THEN  110 

100  NEXT  D: PR I NT "PROGRAM  UNABLE  TO  CALCULATE  VALUE": 


END 


110  PRINT"ACTUAL  ANNUAL  PERCENTAGE  RATE="  ;  F*  1200 ;""/.":  END 


given  the  number  of  points,  amount  of  the  loan, 
years,  and  annual  percentage  rate  of  the  loan.  It 
outputs  the  value  for  monthly  payments  and  true 
annual  percentage  rate. 

Direct  reduction  loan.  The  payment,  pres- 
ent value,  or  number  of  time  periods  for  a  reduction 
loan  may  be  calculated  by  using  equations  2,  8  and 
11  in  Table  2-1. 

Additional  loan  formulae.  Here  are  some 
more  formulae  that  you  will  find  useful  when  you 
are  dealing  with  loans. 
•  Principal  on  a  loan 


1  - 


1      ) 

(1  +  i/Nf-Y  J 


where  P  =  principal 

R  =  regular  payment 
i  =  annual  interest  rate 
N  =  number  of  payments  per  year 
Y  =  number  of  years 

•  Regular  payment  on  a  loan 
i*P/N 


R   = 


H" 


where  R  =  regular  payment 

i  =  annual  interest  rate 


P  =  principal 

N  =  number  of  payments  per  year 

Y  =  number  of  years 


Term  of  a  loan 


log 


Y  =  - 


6--) 

\     n-r/    i 


('*+) 


log 


N 


where  Y  =  term  of  payment  in  years 
P  =  principal 
i  =  annual  interest  rate 
N  =  number  of  payments  per  year 
R  =  amount  of  payments 

Depreciation  Calculations 

Standard,  composite,  and  excess  deprecia- 
tions may  be  calculated  with  the  following  methods: 

1)  Straight  line  depreciation 

D=PV/n 
B=PV-kD 

k 

2)  Sum-of-the-years-digits  depreciation 
S+  (n-k)  Dt  2  (  n-k  +  1  )  PV 


Bk  = 


°k  = 


n(n  +  1) 
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3)  Variable  rate  declining  balance  depreciation 

D   =pv£  (1  -  R/nf-1 
k  n 

Bk  =  PV  (l-R/nf 

In  each  of  the  above  depreciation  formulas, 

PV  =  original  value  of  asset  (less  salvage  value) 

n  =  lifetime  number  of  periods  of  asset 
B    =  book  value  at  time  period  K 

D  =  each  year's  depreciation 

k  =  the  number  of  the  time  period  (that  is,  1,  2,  3, 
.  .  .  n) 

S  =  salvage  value 

R  =  depreciation  rate 
Dk  =  depreciation  at  time  period  k 

The  program  in  Listing  2-9  can  be  used  to 
compare  depreciation  methods. 

Here  are  some  sample  results  from  the  depre- 
ciation program. 


depreciation  _  -. 
rate 


YEAR 

STRAIGHT 

DOUBLE 

SUM  OF 

NO. 

LINE 

DECL. 

DIGITS 

1 

$  1250.00 

$  2750.00 

$  2000.00 

2 

$  1250.00 

$  1375.00 

$  1500.00 

3 

$  1250.00 

$     687.50 

$  1000.00 

4 

$  1250.00 

$     343.75 

$     500.00 

(resale  price  \1/age 
original  pricey 

and  may  be  used  to  answer  queries  such  as  "If  a  car 
was  bought  for  $9000  and  sold  three  years  later  for 
$5100,  what  was  the  depreciation  rate?" 

The  salvage  value  of  an  item  at  the  end  of  a 
given  year  may  be  calculated  with  the  formula 

S  =  P(l  -  i)Y 
where  S  =  salvage  value 
P  =  original  price 
i  =  depreciation  rate 
Y  =  age  in  years 

Annuities 

Given  the  values  of  the  required  variables  as 
input  data,  an  annuity  program  could  calculate  the 
remaining  variable  in  any  of  the  following  situa- 
tions: 

•  Sinking  funds— a  sinking  fund  is  an  annuity  in 
which  a  future  value  is  accumulated  by  making 
equal  payments  at  equal  intervals  at  a  certain 
interest  rate.  The  value  can  be  computed  using 
equation  10  in  Table  2-1. 

•  Annuity  due— the  future  or  present  value  can  be 
calculated  using  equations  8  and  10  in  Table  2-1. 

•  Ordinary  annuity— This  value  may  or  may  not 
include  a  balloon  payment.  Again,  use  equations 
2,  8,  and  11  in  Table  2-1. 


The  actual  depreciation  rate  for  an  investment 
is  computed  with  the  formula. 


Bonds  and  Warrants 

A  useful,  simple  program  could  be  written  to 


Listing  2-9:  The  Depreciation  Method  Comparison  Program 


10 
20 
30 
40 
50 
60 
65 
70 
SO 
90 


REM  DEPRECIATION  METHOD  COMPARISON 

INPUT  "ENTER   PURCHASE  COST" 5 C 

INPUT  "ENTER  LIFE  IN  YEARS" ;L 

INPUT  "ENTER  SCRAP  VALUE" 5 S 

A$="##     $#####„##     $#####.##     *#####.## 

b=c-s:di=b/l:m=( <l+i>/2)*l:f=l 

PR I NT "YEAR  NO. " , "STRAIBHT  LINE" , "DOUBLE  DECL.' 
FOR  X  =  l  TO  L:D2=B*(F/M):F=F-1 
D3=2*C/L:C=C-D3 
PRINTUSINGA*;X,D1,D3,D2:NEXT  X 


"SUM  OF  DIBITS" 
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determine  the  value  of  both  short  and  long  term 

warrants.  Given  present  value,  coupon  interest,         „         

yield  to  maturity,  and  maturity  value  or  the  number  these  features: 
of  periods  (three  values  out  of  the  four),  a  computer 
program  can  compute  the  remaining  term.  Taxes, 
commissions,  and  current  yield  could  also  be  de- 
termined. The  formula  used  to  calculate  the  present 
value  (cost)  of  a  bond  with  annual  coupons  is  as 
follows: 


ness  AP/AR  program  could  manage  a  large  portion 
of  your  financial  affairs.  The  program  could  include 
these  features: 


Price  = 


[7  1  -  (1  +i/c)-°\  (100°  Cr/2>~] 
+  [Q+i/c)-n  (1000)] 


where     i  =  discount  rate  as  % 

n  =  number  of  years  to  maturity  multi- 
plied by  2 
Cr  =  coupon  rate  of  bond 
c  =  number  of  compounding  periods  per 
year 

The  formula  used  to  calculate  the  bond  yield  of 
an  annual  coupon  is  as  follows: 

Fg  -  (B.V.^  -  (B.V.)n 

. n 

(B.V.\  +  (B.V.)n 

2 

where  j  =  nominal  yield  rate 
(B.V.^  =  original  bond  value 
(B.V.)n  =  bond  at  n  years 

F  =  face  value 

g  =  nominal  dividend  rate 

n  =  number  of  years 

PERSONAL  ACCOUNTING 

There  are  a  number  of  ways  in  which  your 
personal  computer  can  help  you  manage  your  per- 
sonal finances  more  effectively.  The  computer  can 
help  you  deal  with  everything  from  credit  card  pay- 
ments to  income  tax  calculations. 

Personal  Accounts  Receivable/Payable 

A  personal  AP/AR  program  similar  to  a  busi- 


1.  A  checking  and  savings  account  management 
program  to  enable  you  to  maintain  the  current 
balance  of  your  checking  and  savings  accounts. 
Interest  credits  could  be  calculated  and  added.  A 
file  of  each  check  (with  its  number,  purpose, 
notes,  amount,  and  payee)  could  be  stored  for 
later  income  tax  preparation.  Specialized  re- 
ports could  be  generated  from  this  check  file 
including  a  check  register  for  a  specified  time 
period,  the  distribution  of  expenditures,  and 
statements  of  selected  accounts.  The  ideal  pro- 
gram would  request  all  information  concerning 
each  check  written,  store  this  information,  and 
print  the  check  itself. 

2.  A  budgeting  program  to  keep  you  up  to  date  on 
expenditures  in  various  areas  so  that  income  can 
be  allocated  appropriately.  A  plan  for  family 
spending  could  take  the  following  format: 

Set-asides 

Emergencies  and  future  goals  

Seasonal  expenses 

Debt  payments 

Regular  monthly  expenses  

Rent  or  mortgage  payment     

Utilities  

Installment  payments  

Other  

Total 

Day  to  day  expenses 

Food  and  beverages  

Household  maintenance  

Furnishings,  equipment  

Clothing  

Personal  

Transportation  

Medical  care  

Recreation,  education  

Gifts,  contributions  : 

Total  . 

Total  of  all  expenses  


Alternatively,  you  could  take  realistic  esti- 
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Table  2-2.  A  Portion  of  a  Personal  Budget  Sheet  in  Spreadsheet  Form. 


ACTUAL  FOR 

JOE  SMITH 

OCT. 

8,  1982 

EXPENSE 

JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

RENT 

650 

0 

0 

0 

0 

0 

0 

0 

FOOD 

323 

361 

357 

371 

290 

251 

410 

356 

CLOTHES 

154 

0 

54 

0 

0 

0 

0 

68 

UTILITIES 

57 

56 

50 

59 

62 

51 

53 

59 

CREDIT  CARD  INTEREST 

0 

0 

0 

0 

0 

0 

0 

0 

ENTERTAINMENT 

143 

100 

58 

13 

24 

45 

125 

54 

GASOLINE 

100 

110 

90 

100 

100 

100 

95 

90 

MORTGAGE  INTEREST 

0 

0 

0 

0 

0 

0 

0 

0 

MISCELLANEOUS  EXPENSE 

28 

0 

44 

0 

98 

0 

0 

48 

CAR  EXPENSES 

990 

0 

0 

0 

0 

0 

0 

0 

TOTAL  EXPENSE 

2445 

627 

653 

543 

574 

447 

683 

675 

NET  INCOME 

105 

1623 

1597 

2091 

1676 

1803 

1863 

1825 

mates  for  the  upcoming  year  and  enter  these 
figures.  A  program  could  use  this  information  in 
computing  the  percentage  of  gross  income  that  each 
item  requires.  As  a  rule  of  thumb,  housing  should 
cost  no  more  than  one  fourth  of  your  gross  income. 
(This  is  an  example  of  one  of  the  budgeting  princi- 
ples discussed  in  most  references  concerning  fam- 
ily budget  preparation.)  The  home  computer  re- 
moves the  drudgery  of  manual  calculations  for  those 
determined  to  stick  to  a  well-planned  budget. 

On  command,  a  budget  program  could  print 
month-to-date  figures  and  an  end-of-month  com- 
parison of  budget  versus  actual  expenses.  It  can 
also  show  the  amount  of  cash  needed  to  meet 
budgeted  expenses  for  the  rest  of  the  month.  It 
could  also  maintain  tax  records,  keep  a  running 
balance  of  cash  on  hand,  keep  an  inventory  of  your 
possessions,  and  even  help  in  planning  weekly 
menus. 

Table  2-2  shows  a  portion  of  a  personal  budget 
report  that  indicates  where  the  money  has  been  and 
will  be  spent  in  spreadsheet  fashion.  Such  spread- 
sheets, besides  being  a  personal  planning  benefit, 
are  often  useful  when  securing  a  personal  loan. 
3.  A  financial  behavior  determination  program  to 
help  you  analyze  your  expenditures  and  sum- 


marize your  spending  in  various  areas  (the 
categories  of  the  budget  above)  that  would  be 
useful  in  preparing  a  budget  plan. 

According  to  the  experts  at  the  U.S.  Dept. 
of  Labor,  a  family  of  four  should  typically  allo- 
cate its  spending  as  follows: 


Housing 

24% 

Food 

24% 

Transportation 

15% 

Clothing,  personal  care 

13% 

Taxes 

13% 

Medical 

7% 

All  other 

4% 

Families  differ,  but  how  do  your  own  expenses 

correspond  to  these  percentages? 

4.  A  file  of  unfulfilled  contracts,  mail  orders,  and  so 
on  for  which  you  have  sent  checks  and  yet  have 
received  no  reply.  As  replies  are  received,  the 
appropriate  accounts  are  removed  from  the  file. 

Daily  Interest  Passbook  Savings  Account 

You  can  use  the  BASIC  program  in  Listing  2-10 
to  maintain  a  savings  account.  The  program  has 
provisions  for  interest,  withdrawals,  and  deposits. 
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Listing  2-10:  The  Daily  Interest  Savings  Program 

50  REM  DAILY  INTEREST  PASSBOOK  SAVINGS  COMPUTATION 

110  REM  ENTER  DEPOSITS  AS  POSITIVE  NUMBERS,  DEDUCTIONS  AS  NEGATIV 
E  NOS. 

120  REM  ENTER  0  AT  THE  FINAL  DATE  TO  COMPUTE  THE  INTEREST 
130  CLS  'CLEAR  SCREEN 

140  INPUT  "ENTER  THE  ANNUAL  INTEREST  IN  PERCENT";  F 
150  E=F/36000 

160  INPUT  "SELECT:  1)  USE  ACTUAL  DAYS  IN  MONTH  2)  USE  30  DAYS  FOR 
MONTH";  D 
170  6=0 

1B0  INPUT  "ENTER  THE  STARTING  DATE  NUMERICALLY  AS  MONTH,  DAY";  A,  B 
190  INPUT  "ENTER  THE  STARTING  BALANCE";   C 

200  IF  D  =  1  THEN  INPUT  "IS  THIS  A  LEAP  YEAR  (1  =  YES,  2=N0)";H: 
GOSUB  1000  ELSE  GOSUB  500 
210  J  =  K:  PRINT 

220  PRINT  "#    DATE   WITHDRAWAL  DEPOSIT   BALANCE   INTEREST" 
230  PRINT  K5  A?  ",";  B;  TAB(32>5  C 
240  INPUT  "ENTER  MONTH,  DAY,  AMOUNTS "; A, B, L 
250  IF  D  =  2  THEN  GOSUB  500  ELSE  GOSUB  1000 
260  GOTO  700 
500  M  =  B 

510  IF  <A=2)  OR  <A=4)  OR  <A=6>  OR  (A=9)  OR  <A=11>  THEN  ELSE  520EL 
SE  600 

520  IF  A=2  THEN  IF  B=28  INPUT  "IS  THIS  A  LEAP  YEAR  (1  =  YES,  2=N0) 
"5N:  IF  N=l  THEN  RETURN:  ELSE  590 
530  IF  B  >27  THEN  B  =  31 
590  PF  B  =  30  THEN  B  -    31 
600  K=B  +  <A-1)*30 
610  RETURN 
700  0  =  K 

710  IF  J  =  K  THEN  750 
720  FOR  P  =  J  TO  K-l 
730  G  =  G  +  G*E  +  C*E 
740  NEXT  P 
750  C  =  C  +  L 

760  G=(INT( (G-INT<G) )*100*. 5001) ) /100+INT<G) 
770  PRINT  Kj  A;  ", "5  M; 

780  IF  L  <0  THEN  PRINT  TAB  ( 13)  ;  L;  ."  GOTO  00790 
785  PRINT  TAB (24) ;L; 
790  PRINT  TAB(24);C; 
800  PRINT  TAB (44) 5  G 
810  J  =  0 
820  GOTO  240 

1000  ON  A  GOTO  1010,  1020,  1030,  1040.,  1050,  1060,  1070,  1080, 
1090,  1110,  1120,  1130 

ioio  k  =  b:  goto  1140 

1020  K  =  B  +31:  GOTO  1140 
1030  K  =  B  +  N  +  59:  GOTO  1140 
1040  K  =  B  +  N  +  99:  GOTO  1140 
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1050  K  =  B  +  N  +  120: 

GOTO 

1140 

1060  K  =  B  +  N  +  151: 

GOTO 

1140 

1070  K  =  B  +  N  +  181: 

GOTO 

1140 

1080  K  =  B  +  N  +  212: 

GOTO 

1140 

1090  K  =  B  +  N  +  243: 

GOTO 

1140 

1110  K  =  B  +  N  +  273: 

GOTO 

1140 

1120  K  =  B  +  N  +  304: 

GOTO 

1140 

1130  K  =  B  +  N  +  334: 

GOTO 

1140 

1140  M  =  B:  RETURN 

Income  Tax 

Preparation  of  income  tax  forms  is  a  task  that 
lends  itself  well  to  computers  because  computers 
are  great  organizers  and  calculators,  and  they  can 
save  you  time  and  money.  Tax  preparation  pro- 
grams range  from  simple  arithmetic  calculators  to 
complete  personal  accounting  programs.  In  the 
most  popular  approach,  the  computer  requests 
answers  to  such  questions  as,  "What  are  your  fed- 
eral withholding  taxes?"  You  proceed  to  answer  all 
the  possible  questions  necessary  to  prepare  a  1040 
tax  form  (approximately  50),  but  unfortunately  you 
must  first  do  considerable  accounting  and  calculat- 
ing to  answer  some  of  the  questions.  The  program 
completes  the  simple  arithmetic  for  filling  in  the 
1040  form  and  prints  the  proper  values  in  the  boxes 
on  the  form. 

A  more  complex  approach  would  involve  the 
periodic  storage  of  all  elements  of  your  finances  on 
cassette  or  floppy  disk  (for  example,  each  week  you 
could  store  the  names,  addresses,  purposes,  num- 
bers, and  amounts  of  all  checks  written  or  cashed. ) 
At  years'  end,  the  computer  would  search  and  group 
all  relevant  data  and  do  all  of  the  necessary  calcula- 
tions. In  this  latter  approach,  a  complete  summary 
of  all  deductions,  income,  and  so  on  could  be  printed 
categorically.  References  to  the  filed  location  of  the 
original  checks,  bills,  and  receipts  could  be  in- 
cluded for  proof  of  the  transactions.  A  warning 
could  also  be  issued  in  the  event  that  your  deduc- 
tions exceed  ten  percent  of  your  income  (a  tax  audit 
would  be  likely).  Provisions  could  be  made  to  com- 
pare the  taxes  you  would  pay  if  you  filed  jointly  with 
your  spouse  to  what  you  would  pay  if  you  filed  as  an 
individual. 

A  tax  planning  program  can  help  cut  your  tax 


liability  in  the  years  to  come.  Investment  decisions, 
personal  financial  decisions,  and  business  decisions 
with  tax  consequences  can  all  be  analyzed  in  plan- 
ning a  tax  strategy.  In  a  divorce,  for  example,  the 
arrangement  of  a  settlement  can  result  in  substan- 
tially less  tax  depending  upon  how  the  money  is 
allocated  between  property  settlement,  alimony, 
and  child  support.  A  tax  planning  program  can  be 
used  to  quickly  answer  "what  if?"  questions  during 
the  negotiation  of  a  settlement.  The  ease  of  chang- 
ing inputs  and  having  the  program  recalculate  the 
entire  return  can  be  a  tremendous  time  saver.  Ad- 
ditionally, complex  calculations  such  as  income  av- 
eraging on  Form  G  can  be  done  automatically, 
perhaps  yielding  a  bigger  refund  for  those  who  pre- 
viously would  not  have  attempted  the  calculations 
manually.  A  tax  planning  program  in  the  form  of  a 
spreadsheet  allows  the  simultaneous  consideration 
of  multiple  cases  covering  different  facts  and  years. 
The  spreadsheet  can  include  graphical  representa- 
tions showing  the  impact  of  adding  or  subtracting 
income,  deductions,  or  credits,  and  varying  tax 
computations  over  a  several-year  period— in- 
cluding regular  tax,  alternative  minimum  tax, 
add-on  minimum  tax,  income  averaging,  and  the 
consideration  of  limitations  on  the  use  of  credits. 
For  instance,  you  could  consider  the  possibility  of  a 
second  income  versus  staying  at  home  by  having 
your  computer  program  figure  the  after-tax  results 
of  that  extra  income,  which  is  often  discouraging. 
As  another  example,  assume  that  you  own  a  busi- 
ness and  want  to  know  if  you  should  pay  your  wife  a 
salary.  Depending  upon  your  income  level,  this  may 
or  may  not  be  advantageous;  a  tax  planning  program 
could  determine  the  best  option  for  your  income 
bracket. 
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A  recurring  question  among  investors  is  "What 
are  the  sources  of  tax-free  income  whose  yields  are 
equal  to  or  greater  than  yields  provided  by  taxable 
investments?"  Should  you  invest  in  tax-free  bonds 
and  other  tax-free  securities  or  place  your  money  in 
a  fully  taxable  bond,  savings  account,  or  treasury 
bill?  (Remember,  however,  that  you  may  wish  to 
consider  other  factors,  such  as  liquidity  of  assets.) 
The  two  formulas  necessary  to  compute  taxable  and 
tax-free  yields  are  given  below.  A  simple  BASIC 
program  could  compute  these  for  a  given  situation 
and  determine  which  alternative  offers  the  better 
investment. 

taxable  yield=tax-free  yield/(l-federal  tax 

bracket) 

tax-free  yield=taxable  yield*(l-federal  tax 

bracket) 

For  instance,  if  you  are  in  the  35%  federal  income 
bracket,  have  invested  in  a  money-market  account 
at  8%,  and  are  offered  the  opportunity  to  invest  in  a 
tax-free  fund  yielding  6.2%,  which  is  the  better 
investment?  Using  the  second  equation  above,  you 
find  that  the  tax-free  fund  would  be  a  better  invest- 
ment at  6.2%  versus  5.2%  after  taxes  for  the 
money-market  account.  A  more  sophisticated  pro- 
gram could  print  a  table  of  yields  given  the  known 
tax-free  or  taxable  yield  starting  value  and  the  in- 
crement, and  the  starting  value  of  the  tax  bracket 
and  the  increment.  Investors  in  some  states  are 
allowed  tax  exemptions  for  qualifying  tax-free  in- 
vestments. In  this  situation,  simply  add  the 
exempted  state  tax  rate  to  the  federal  tax  rate  when 
entering  your  tax  bracket  value. 

Home  Banking 

You  may  soon  be  able  to  do  your  banking  from 
home  with  a  personal  computer.  Many  banks  are 
conducting  pilot  home-banking  studies  and  are  be- 
ginning to  sell  such  services  to  depositors.  These 
include  the  major  banks  listed  below: 

Central  Trade  Bank  of  Memphis,  Memphis, 

TN 

Citibank,  New  York,  NY 

First  Tennessee  Bank,  Knoxville,  TN 


Huntington  National  Bank,  Columbus,  OH 
Shawmut  Bank  of  Boston,  Boston  ,MA 
With  most  of  these  services,  a  customer  dials  the 
bank's  central  computer  or  uses  one  of  the 
timesharing  networks,  such  as  CompuServe, 
through  his  modem.  After  providing  a  secret 
password,  the  customer  can,  for  instance,  ask  for  a 
list  of  recent  deposits  and  pay  bills  directly  by 
transferring  money  from  his  account  to  those  of  his 
creditors.  Banks  charge  from  $5  to  $15  per  month 
for  this  service. 

Retirement  Planner 

The  formulas  given  below,  translated  into 
BASIC  statements,  will  calculate  how  much  initial 
capital  you  need  to  financially  survive  a  given 
number  of  retirement  years  at  a  given  standard  of 
living.  Inflation  and  return  on  invested  capital  are 
accounted  for.  By  using  a  BASIC  program,  you 
could  quickly  determine  the  effect  of  changes  on 
these  and  other  variables.  You  can  use  this  infor- 
mation in  deciding  whether  or  not  you  can  afford  to 
retire. 

S=(EXP(I*N))*(T+(F*(1-EXP(-J*N))/J)-(E* 
(EXP((I-J)*N)-1)/(I-J))) 

T=(E*((EXP(I-J)*N)-1)/(I-J))-((F*(1-EXP 
(-J*N)))/J),  for  I  not  equal  to  J 

T=(N*E)-(F*((1-EXP(-J*N))/J)),  for  I  equal  to  J 

where  N  =  number  of  years  after  retirement  for 
which  financial  survival  is  planned 
S  =  Investment  capital  remaining  after  N 

years 
T  =  Initial  capital 
F  —  Annual  fixed  (after  tax)  income 
E  =  Initial  excess  living  expense 
I  =  Annual  average  inflation  rate 
J  =  Annual  after-tax  return  on  investment 


MONEY-MAKING  APPLICATIONS 

There  are  many  ways  to  use  your  microcom- 
puter to  make  money;  you  might  consider  starting  a 
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part-time  or  full-time  business  based  on  one  of  the 
following  ideas. 

Stock  Market 

One  "hobbyist"  is  deriving  his  income  from  his 
stock  prediction  newsletter  that  is  composed  of 
market  predictions  determined  using  "twelve 
confidential  indicators"  on  his  home  computer. 
In  similar  fashion,  you  could  experiment  with 
mathematical  analysis  of  the  stock  market  using  the 
statistical  methods  outlined  earlier  in  this  chapter. 
A  personal  computer  could  also  serve  to  maintain 
stock  portfolios  and  organize  or  correlate  market 
predictions  and  stock  recommendations  to  ease  de- 
cision making.  With  the  proliferation  of  financial 
databases  available  through  the  use  of  a  modem, 
information  on  stock  prices,  market  performance, 
and  so  on  could  be  entered  automatically  to  a  stock 
analysis  program  designed  to  scan  the  entire  mar- 
ket, stocks  of  a  given  industry  group,  or  particular 
stocks.  Financial  data  bases  may  also  be  scanned  to 
provide  historical  data  or  the  latest  news  reports  on 
selected  corporations. 

The  home  computer  is  certainly  useful  in 
mathematical  analysis  and  data  storage  for  other 
forms  of  financial  investment,  including  stock  op- 
tions and  commodities.  An  options  analysis  pro- 
gram was  presented  earlier  in  this  chapter  and 
should  serve  as  a  good  starting  point  for  newcomers 
in  computer  application  to  the  options  market. 
Again,  use  of  financial  databases  accessable  via 
modems  permits  the  automatic  input  of  data  to  your 
analysis  program.  The  commodities  trader  will 
probably  find  the  personal  computer  to  be  a  boon  in 
organizing  and  obtaining  information  in  the  fast 
moving  and  volatile  commodities  market  and  in 
allowing  trading  from  the  home  for  the  first  time. 

Services 

The  home  computer  owner  is  in  the  position  to 
offer  the  following  services. 

Mailing  lists.  A  mailing  list  of  people  in  your 
area  could  be  used  by  local  firms  with  direct  mail 
campaigns.  The  mailing  list  could  be  compiled  from 
area  phone  books,  association  directories,  and  so 
on,  entered  into  your  computer,  and  stored  perma- 


nently on  floppy  disks.  The  list  may  be  printed  on 
adhesive  labels  and  sold  to  local  businesses.  The 
advantage  of  being  a  local  business  serves  to  elimi- 
nate competition  from  large  mailing  list  brokers  in 
other  cities. 

Resumes.  People  in  all  metropolitan  areas 
can  use  a  resume  preparation  service  to  write, 
type,  and  mail  resumes  to  potential  employers.  A 
computer  word-processing  system  could  automate 
this  business  almost  entirely. 

Typesetting,  indexing,  and  editing.  All 
businesses  and  organizations  can  use  a  printing 
preparation  enterprise  for  typesetting  and  editing 
promotional  material.  Small  computers  interfaced 
to  IBM  composers,  executive  typewriters,  DI- 
ABLO proportional  printers,  laser  printers,  or  con- 
ventional typesetting  equipment  can  produce  ex- 
cellent justified  and  camera-ready  material  for 
printing.  The  cost  savings  of  using  a  computer  will 
allow  the  entrepreneur  to  offer  lower  prices  for 
such  services  and  ensure  greater  accuracy.  Addi- 
tionally, an  indexing  service  using  a  simple  com- 
puter program  to  create  book  or  magazine  indexes 
could  provide  a  valuable  service  to  small  publishing 
firms. 

Home  swap  and  rental  locator  services. 
The  practice  of  swapping  one's  home  with  other 
people  during  vacation  time  is  becoming  popular.  A 
service  that  used  a  computer  to  categorize  homes 
available  and  homes  wanted  could  profit  by  pub- 
lishing a  newsletter  of  listings. 

A  rental  locator  service  categorizes  homes  and 
apartments  for  rent  from  classified  newspaper  ads 
or  other  sources.  In  metropolitan  areas,  where 
finding  an  ideal  home  to  rent  is  a  difficult  task,  a 
service  to  match  people  with  the  right  living  condi- 
tions at  the  right  price  would  be  useful.  In  a  similar 
manner,  a  service  company  could  match  people 
with  cars  for  sale  by  the  owners. 

One  entrepreneur  has  developed  a  com- 
puterized bartering  service  for  matching  needs  and 
services  of  those  in  high  income  tax  brackets  for  the 
purpose  of  mutual  tax  write-offs.  He  charges  a  small 
fee  for  successful  bartering  arrangements. 

Finder's  fees.  A  finder's  fee  is  a  sum  of  money 
paid  to  someone  who  finds  something  wanted  by 
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another  person  who  is  willing  to  offer  an  award  for 
it,  be  it  business  opportunities,  products,  or  rare 
items.  Usually,  finder's  fees  are  expressed  as  a 
percentage  of  the  amount  of  money  involved  in 
purchasing  the  item  to  be  found.  A  few  organiza- 
tions publish  newsletters  listing  finder's  fee  op- 
portunities. A  hobbyist  could  computerize  hun- 
dreds of  listings  for  future  reference  and  could  cor- 
relate the  need  of  buyers  with  the  offerings  of 
sellers. 

Telephone  answering  message  service 
and  newspaper  clippings  service.  Telephone 
answering  services  of  sufficient  size  can  use  a  small 
computer  to  increase  efficiency  and  lower  costs.  A 
newspaper  clipping  service,  which  clips  articles  of 
interest  to  paying  clients,  could  use  a  computer  to 
keep  track  of  the  varied  categories  to  search  for. 

Computer  dating  service.  Popular  a  few 
years  ago,  computer  dating  services  could  make  a 
return  appearance,  especially  in  metropolitan 
areas. 

Sports  predictions  and  gambling.  An  en- 
terprising hobbyist  uses  his  computer  to  predict 
college  football  scores.  The  information  produced 
is  sold  as  "CLYDE  the  computer"  spoits  forecasts 
to  television  stations  for  use  on  local  news  broad- 
casts. Other  entrepreneurs  have  used  computer 
predictions  of  sporting  events  to  publish  flyers  that 
are  sold  at  dog  and  horse  races.  It  would  be  silly  to 
deny  that  personal  computers  have  also  found  wide- 
spread application  in  illegal  gambling  circles  for  the 
analysis  of  point  spreads  and  historical  perfor- 
mance, and  for  bookkeeping! 

Employment  agency.  The  computer  could 
be  useful  to  an  employment  agency  in  matching  the 
right  people  with  the  right  jobs.  The  use  of  the 
computer  may  also  serve  to  increase  business  in 
itself. 

Small  business  systems  and  software. 
Many  hobbyists  have  turned  personal  computers 
into  a  profitable  sideline  business  by  selling 
packaged  computer  systems  with  accounting,  word 
processing,  and  spreadsheet  software  to  small 
business  and  offering  technical  support  and  train- 
ing. You  could  also  create  personalized  programs 
including  databases  and  mailing  lists  on  a  freelance 


basis  for  firms  with  small  computers. 

Collection  service.  A  word-processing 
computer  system  could  automatically  output  per- 
sonalized collection  letters,  which  theoretically 
generate  greater  response.  Thus,  a  low-cost  col- 
lection service  charging  a  flat  rate  or  a  percentage 
of  the  money  collected  would  be  an  excellent  side- 
line business  for  the  computer  hobbyist. 

Word  Processing.  A  word-processing  ser- 
vice can  be  employed  by  businesses  to  prepare 
typewritten  personalized  sales  letters.  Such  a  busi- 
ness would  be  almost  totally  automated  by  a  small 
computer. 

Bowling  league  bookkeeping.  A  few  hob- 
byists have  sideline  businesses  that  calculate 
bowling  league  scores  and  handicaps  for  ten  to 
thirty  cents  per  player  per  week.  This  cost  is  usu- 
ally less  than  the  costs  for  hiring  a  person  to  do  the 
bookkeeping. 

Supermarket  comparison  service.  A  hob- 
byist turned  businessman  uses  his  personal  com- 
puter to  collect  and  compare  price  data  for  popular 
foods  at  local  supermarkets  and  sells  a  listing  of  the 
most  economical  stores  to  shoppers. 

Personalized  books.  Children's  books  con- 
taining a  child's  name,  address,  and  other  per- 
sonalized information  can  be  printed  by  a  small 
computer  economically.  Studies  show  that  children 
prefer  reading  personalized  books  over  any  other 
type  of  book,  and  there  is  a  considerable  demand  for 
them.  An  enterprising  hobbyist  could  develop  a 
large-scale  business  along  these  lines.  Perhaps  a 
humorous  personalized  book  could  be  sold  for 
adults  as  well. 

Educational  programs.  You  could  form  a 
distributorship  to  bring  educational  computer 
materials  to  schools,  bookstores,  and  other  institu- 
tions. The  market  for  educational  computer  pro- 
grams is  also  growing.  Popular  tutorials  could 
be  developed  concerning  electronics,  higher 
mathematics,  business  and  investments,  comput- 
ers, and  an  unlimited  variety  of  other  topics. 

Real  Estate 

Possible  applications  for  personal  computers 
in  real  estate  include  the  following: 
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Residential  purchase  analysis.  A  useful 
program  could  calculate  the  total  monthly  payment, 
income  tax  deductions,  and  equity  build-up  result- 
ing from  the  purchase  of  a  home.  An  own  versus 
rent  analysis  could  also  be  useful. 

General  real  estate  investment  analysis. 
By  considering  such  factors  as  inflation  and  interest 
rates,  mortgages,  cash  flow  in  percent  growth  re- 
turn, taxable  income  (tax  shelter),  and  financial 
feasibility  can  be  calculated.  Income  property  re- 
ports and  closing  statements  may  also  be  gener- 
ated. 

Rental  property  management.  A  program 
designed  for  management  of  rental  properties  could 
store  the  following  types  of  information  for  each 
property  or  client:  receipts,  disbursements,  gross 
income,  calculated  profit  and  loss,  calculated  return 
on  investment,  and  calculated  net  income. 

Appraisal  tabulator  program.  A  program 
designed  for  the  appraiser  could  organize  and  tabu- 
late variables  and  could  determine  an  appraisal. 

Real  estate  evaluation.  The  program  in 
Listing  2-11  is  designed  for  use  by  a  potential  in- 
vestor in  evaluating  a  piece  of  real  estate,  prefera- 
bly an  apartment  building.  The  program  estimates 
the  total  monthly  income,  annual  rate  of  return,  and 
tax  deductions  based  on  such  input  data  as  cost, 
down  payment  on  mortgage,  estimated  overhead 
costs,  and  income. 

First,  here's  a  sample  run  that  will  show  you 
what  information  the  program  will  request  and  what 
kind  of  results  it  will  produce. 

ENTER  THE  PURCHASE  PRICE  OF  THE  REAL 

ESTATE?  75000 
ENTER  THE  MORTGAGE  INTEREST  (%)  ? 

9.75 
ENTER  THE  MORTGAGE  DOWN  PAYMENT 

AS  A  %  OF  PURCHASE  COST?  10 
ENTER  THE  NUMBER  OF  YEARS  IN  THE 


LOAN  TERM?  25 

ENTER  THE  CLOSING  COST  (%  OF  PUR- 
CHASE PRICE)?  2 

ENTER  MISCELLANEOUS  INITIAL  EX- 
PENSES AS  ONE  SUM?  100 

ENTER  THE  ESTIMATED  INCOME  PER 
MONTH  FROM  THE  PROPERTY?  1125 

ENTER  THE  REAL  ESTATE  TAX  FOR  ONE 
YEAR?  1300 

ENTER  THE  ESTIMATED  OVERHEAD  COSTS 
(MAINT.,  UTILITIES,  INSUR.,  ETC.)?  525 

FOR  TAX  DEDUCTION  PURPOSES,  ENTER 
THE  EST.  PROPERTY  VALUE?  15000 

ENTER  YOUR  TAX  BRACKET  AS  A%  OF 
YOUR  INCOME?  40 

IS  THE  BUILDING  ON  THE  PROPERTY  NEW 
OR  USED  ("N"OR"U")?N 

TAX  AND  CASH  FLOW  ANALYSIS 

MONTHLY  EXPENSES  $525.00 
MONTHLY  TAXES  $1 08.33 
MONTHLY  MORTGAGE  $601.52 
MONTHLY  INCOME  $1125.00 

MONTHLY  CASH  FLOW  $109.85- 

TAX  HEDGE: 

EXPENSES  (YR.  #1 )  $7650.00 
DEPRECIATION  (YR.  #1)  $6000.00 
DEDUCTIBLE  INTEREST  $6581.25 
REAL  ESTATE  TAX  (YEARLY)  $1300.00 

TOTAL:  (YR.  #)  $21531.30 
TOTAL  INCOME  (YR.  #1)  $13500.00 
NET  DEDUCTION  (YR.  #1)  )8031.25 
TAX  ADVANTAGE  (YR.  #1)  $3212.50 

RETURN  ON  INVESTMENT  18% 


Listing  2-1 1 :  The  Real  Estate  Evaluation  Program 

10  REM  REAL  ESTATE  PURCHASE  EVALUATION  PROGRAM 
20  REM  DETERMINES  TAX  ADVANTAGE  AND  CASH  FLOW  OF 
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30  REM  A  PROSPECTIVE  PURCHASE 

40  INPUT-ENTER  THE  PURCHASE  PRICE  OF  THE  REAL  ESTATE" 5  A 

50  INPUT  "ENTER  MORTABE  INTEREST  (%)  "  ",B 

55  INPUT  "ENTER  MORTGAGE  DOWN  PAYMENT  AS  A  "/.  OF  PURCHASE  COST";C 

60  B=B/100:C=C/100 

70  INPUT "ENTER  NUMBER  OF  YEARS  IN  THE  LOAN  TERM" J D 

80  INPUT  "ENTER  THE  CLOSING  COST  ("/.  OF  PURCHASE  PRICE)  "SE 

90  E=E/100 

100  INPUT"ENTER  MISCELLANEOUS  INITIAL  EXPENSES  AS  ONE  SUM"; 6 

110  INPUT"ENTER  THE  ESTIMATED  INCOME  PER  MONTH  FROM  THE  PROPERTY" 

;  J 

120  INPUT "ENTER  THE  REAL  ESTATE  TAX  FOR  ONE  YEAR"!K 

130  INPUT "ENTER  THE  EST.  OVERHEAD  COSTS  (MAINT. , UTILITIES, INSUR. , 

ETC.)"iL 

132  INPUT"FOR  TAX  DEDUCTION  PURPOSES,  ENTER  THE  EST.  PROPERTY  VAL 

UE"jM 

134  INPUT'ENTER  YOUR  TAX  BRACKET  AS  A  7.    OF  YOUR  INCOME" ;R7 

136  C*=  "*•**##,###.##- " 

138  INPUT" IS  THE  BUILDING  ON  THE  PROPERTY  NEW  OR  USED  CN'  OR  'U') 

"SB* 

140  X=B/12+1 

150  Y=XC(12*D)*(X-1)/(XC (12*D) -1 ) * (A~C*A) 

160  N=L+K/12+Y 

170  P=(A~C*A)*B 

180  IF  B*="N"  THEN  Q=2  ELSE  Q=1.25 

190  R=L+E*(A-C*A)/12 

200  R1=(A-M)/20*Q 

210  R2=K+R1+P+12*R-12*J 

220  R3=R7/100*R2 

230  R4=G+E*A+C*A- 1 2* < J-N ) 

240  R5=INT(100*((J-N)*12+R3)/R4) 

260  PRINT"TAX  AND  CASH  FLOW  ANALYSIS:" 

270  PRINT"MONTHLY  EXPENSES  »; 

280  PRINTUSING  C* 3 L 

290  PRINT"MONTHLY  TAXES  "; 

300  PRINTUSING  C*;K/12 

310  PR I NT "MONTHLY  MORTGAGE  "! 

320  PRINTUSING  C*iY 

330  PRINT"MONTHLY  INCOME  "; 

340  PRINTUSING  C*5J 

350  PR I NT "MONTHLY  CASH  FLOW  "; 

360  PRINTUSING  C*5J-N 

370  PRINT: PRINT 

380  PR I NT "TAX  HEDGE: " 

390  PRINT"EXPENSES  (YR.  #1)  "  jj 

400  PRINTUSING  C*j 12*R 

410  PR I NT" DEPRECIATION  (YR.  #1)  "5 

420  PRINTUSING  C*JR1 

430  PRINT"DEDUCTABLE  INTEREST  (YR.  #1)     "; 

440  PRINTUSING  C*JP 

450  PR I NT "REAL  ESTATE  TAX  (YEARLY)         "5 

460  PRINTUSING  C*5« 
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465  INPUT  "PRESS  < ENTER >  TO  CONTINUE" J E9* 

470  PRINT: PRINT"TOTAL:  (YR.  #1) 

480  PRINTUSINB  C*; K+P+R1+R*12 

490  PRINT"TOTAL  INCOME  (YR.  3(YR.  #1) 

500  PRINTUSINB  C*5J*12 

510  PRINT"NET   DEDUCTION  (YR.  #1) 

520  PRINTUSINQ  C*;R2 

530  PR I NT "TAX  ADVANTAGE  (YR.  #1) 

540  PRINTUSINB  C*JR3 

550  PRINT: PR I NT "RETURN  ON  INVESTMENT 

560  PRINT  R5;""/." 

570  PR  I  NT  .'PRINT:  END 


"5 


Curve  fit.  A  program  to  fit  such  data  as  land 
prices  or  construction  cost  per  square  foot  to  a 
curve  may  be  used  to  make  more  accurate  fore- 
casts, bids,  and  estimates. 

Internal  rate  of  return  and  cash  flows. 
One  purpose  of  an  internal  rate  of  return  and  cash 
flow  programs  such  as  the  one  in  Listing  2-12  would 
be  to  calculate  the  net  present  value  of  a  series  of 
cash  flows.  In  general,  an  investment,  V  ,  is  made 
in  some  enterprise  that  is  expected  to  bring 
periodic  cash  flows  C  ,  C  .  .  .  C  .  Given  a  discount 

ll  n 


rate,  i,  the  program  will  compute  the  net  present 
value  at  period  k,  NPVk  for  each  cash  flow.  A  nega- 
tive value  for  NPV"k  indicates  that  the  enterprise  has 
not  been  profitable.  A  positive  value  for  NPV"k  indi- 
cates that  the  enterprise  has  been  profitable  to  the 
extent  that  a  rate  of  return,  i,  on  the  original  in- 
vestment has  been  exceeded. 


NPV   =  -V   + 

k  o 


k         C. 

2    '— 

j  =  1  (1  +  i) 


Listing  2-12:  The  Internal  Rate  of  Return  Program 

150  REM  HOME  PURCHASE  INTERNAL  RATE  OF  RETURN 

160  DIM  Y(10) 

170  INPUT  "ENTER  CURRENT  COST  OF  HOUSE" ;HS 

180  INPUT  "ENTER  %  RISE";PH 

190  PH=PH/100 

260  INPUT  "ENTER  MORTGAGE  INTEREST  RATE";MR 

270  MR=MR/100 

290  INPUT  "ENTER  MORTGAGE  DURATION  IN  YEARS" ;NY 

310  INPUT  "ENTER  DOWN  PAYMENT" ;DP 

320  INPUT  "ENTER  RATE  THAT  COULD  BE  EARNED  ON  DOWN  PAYMENT" ;IR 

330  IR=IR/100 

360  INPUT  "ENTER  CURRENT  INCOME  TAX  RATE";TR 

370  TR=TR/100 

380  INPUT  "ENTER  %  RISE";PT 

400  PT=PT/100 

410  INPUT  "ENTER  TRANSACTION  COSTS  TO  BUYER  IN  %";BC 

420  BC=BC/100 

450  INPUT  "ENTER  TRANSACTION  COSTS  TO  SELLER  IN  %";SC 

460  SC=SC/100 

470  INPUT  "ENTER  REAL  ESTATE  TAXES  TODAY"; RE 

500  INPUT  "ENTER  %  RISE";PR 
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510  PR=PR/100 

530  INPUT  "ENTER  UTILITY  AND  MAINTENANCE  COSTS" ;HM 

550  INPUT  "ENTER  %  RISE";PM 

560  PM=PM/100 

580  INPUT  "ENTER  APARTMENT  RENT  TODAY" ;AR 

590  INPUT  "ENTER  %  RISE";PA 

600  PA=PA/100 

630  INPUT  "ENTER  APARTMENT  UTILITIES"  ;AU 

650  INPUT  "ENTER  %  RISE";PU 

660  PU=PU/100 

670  P1=(HS-DP)/((1-(1+MR)°-NY)/MR) 

680  PRINT  "YRS       INTERNAL  RATE  OP  RETURN" 

720  FOR  1=1  TO  10 

730  Y(0)=-DP-BC*HS 

740  B1=HS-DP 

750  FOR  J=l  TO  I 

760  Y(J)=-(DP*TR) 

770  Y(J)-Y(J)-P1 

780  T1=TR+PT*(J-1) 

790  Y(J)=Y(J)-RE*(1+PR)°(J-1) 

800  Y(J)=Y(J)-HM*(1°PM)°(J-1) 

810  Y(J)=Y(J)+AR*(1+PA)°(J-1) 

820  Y(J)=Y(J)+AU*(1+PU)°(J-1) 

830  Y(J)=Y(J)+((RE*(1+PR)°(J-1))+(B1*MR))*(TR+PT*(J-1)) 

840  B1=B1-(P1-(B1*MR)) 

850  NEXT 

860  Y(I)=Y(I)+HS*(1+PH)°I-B1-HS*(1+PH)°I*SC 

900  HIGH=l:LOW=-l 

920  MEAN=(HIGB+LOW)/2 

930  PV=0 

940  FOR  J=0  TO  I 

950  PV=PV+Y(J)/(1+MEAN)°J 

960  NEXT 

970  IF  (.05>PV)  AND  (-.05<PV)  THEN  1000 

980  IF  PV>0  THEN  LOW=MEAN  ELSE  HIGH=MEAN 

990  GOTO  920 

1000  A$="##     ###.#%" 

1010  PRINT  USING  A$;I,MEAN*100 

1020  NEXT 


BUSINESS  DECISION  MAKING  column,  and  room  for  a  totals  column  on  the  right. 

The  following  computer  applications  can  help  F°r  budget  preparation,  each  line  could  represent  a 
you  make  the  decisions  that  will  optimize  the  way  budSet  categ°ry  and  have  budgeted  monthly 
you  run  your  business.  amounts  across  the  P3^"  ^ach  line  and  each 

month's  column  are  totaled.  A  change  to  a  single 

number  involves  replacing  a  figure  with  a  new  one, 

Spreadsheets  and  reading  the  affected  column  and  row.  This  is  a 

Most  people  have  seen  or  worked  with  the    tedious  procedure  prone  to  error.  Hence,  you  can 
traditional  accounting  ledger  spreadsheet  or  work-    understand  the  tremendous  benefits  of  a  totally 
sheet.  Typically  there  are  descriptions  along  the    electronic  spreadsheet, 
left  edge,  month  designations  across  the  top  of  each  A  spreadsheet  program  is  a  super  calculator 
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that  provides  you  with  a  giant  electronic  grid  that 
functions  analogously  to  the  traditional  spread- 
sheet, as  described  above.  When  you  change  the 
values  of  numbers  in  the  grid,  the  program  au- 
tomatically calculates  what  effect,  if  any,  there  is  on 
all  the  other  numbers.  The  spreadsheet  can  provide 
answers  within  seconds  to  all  sorts  of  financial 
"what  ifs. "  For  example,  to  qualify  for  the  mortgage 
you  want,  how  much  income  must  you  have?  Or  how 
would  your  portfolio  value  change  with  a  half-point 
advance  in  a  stock? 

The  electronic  spreadsheet  may  be  as  large  as 
2, 048  rows  long  by  256  columns  high,  depending  on 
the  program.  Formulas,  equations,  and  algorithms 
may  be  input  to  provide  comparisons,  ratios,  totals, 
and  other  information. 

Who  uses  a  spreadsheet  program?  Anyone 
who  Works  with  numbers  might  find  a  use  for  such  a 
program.  Obviously  accounting  is  a  primary  area  of 
application,  but  scientists,  engineers,  managers, 
executives,  and  members  of  almost  any  discipline 
use  spreadsheets.  How  useful  a  spreadsheet  is  in  a 
particular  situation  depends  on  the  degree  to  which 
it  increases  productivity.  Frequently,  a  spread- 
sheet user  will  get  important  answers  that  previ- 
ously were  not  cost  effective  to  obtain/Anyone  who 
needs  more  accurate  and  speedier  calculations  is  a 
potential  spreadsheet  user. 

Spreadsheet  programs  are  being  used  in  an 
endless  variety  of  applications.  Some  use  it  for 
solving  simple  or  complex  equations,  others  for 
normal  calculator  functions,  and  others  as  a  com- 
plete decision  support  tool.  Specific  uses  include 
financial  modeling,  budgeting,  doing  cash  flow 
analysis,  planning,  making  projections,  making 
business  plans,  creating  sales  reports,  doing 
what-if  analysis,  pricing,  making  cost  estimates, 
tax  planning,  improving  time  management,  per- 
forming chemical  formulation,  doing  regression 
analysis,  and  analyzing  structural  design.  Anything 
that  can  be  done  using  a  calculator  can  be  done  more 
easily  and  more  extensively  through  the  use  of  a 
spreadsheet  program. 

Other  Decision  Making  Computer  Applications 

In  addition  to  making  the  electronic  spread- 


sheet available  as  a  decision-making  tool,  the  mi- 
crocomputer enables  you  to  use  programs  to  guide 
you  in  making  decisions  in  the  following  areas. 

Long  and  short  term  financing  require- 
ments. A  commercially  available  long  term 
financing  requirement  calculation  program  could 
compute  the  cost  of  capital  for  various  forms  of 
funding  (for  example,  common  stocks,  preferred 
stocks,  and  bonds,),  select  the  cheapest  form,  and 
determine  the  amount  needed  to  support  operating 
plans.  A  short  term  financing  requirement  calcula- 
tion program  could  compute  the  amount  and  timing 
of  short  term  financing  based  on  sales  forecasts, 
inventory  purchases,  and  collection  and  payment 
policies. 

Breakeven  analysis.  Programs  can  be  used 
to  compute  breakeven  points  for  projects  or  prod- 
ucts based  on  fixed  and  variable  costs  and  selling 
prices;  learning  curves  may  also  be  applied. 

To  breakeven  the  following  must  hold  true 

■  P  K  =  FC  +  (VOQ) 

where    P  =  sales  price  of  each  unit 
K  =  quantity  of  units  sold 
FC  =  fixed  costs  over  the  period  in  quest- 
ion 
VC  =  variable  costs  per  unit  produced 
Q  =  no.  of  units  produced 

Inventory  Control.  The  generalized  inven- 
tory model  known  as  the  economic  order  quantity 
(EOQ)  is  an  important  part  of  the  management  of 
inventory.  The  formulae  below  may  be  used  to 
compute  the  EOQ,  the  minimum  inventory  costs  for 
a  specified  time  period,  and  the  number  of  times  to 
order  replacement  stock  during  a  period. 


EOQ  = 


+  S 


C  .    =  V  2KLM 

mm 

L 

N  = 


EOQ 

where  EOQ  =  the  economic  order  quantity  in 
units 
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C  .   =  the  minimum  inventory  costs 

mm 

for  the  time  period 

N  =  the  number  of  times  replace- 
ment stock  should  be  ordered 
during  the  period 

K  —  the  cost  of  placing  and  receiv- 
ing each  order 

L  =  the  total  number  of  units  used 
during  the  period 

M  =  the  cost  of  carrying  one  unit  in 
inventory  for  the  time  period 

S  =  the  "safety"  quantity  of  stock 
to  be  held  in  inventory,  to 
minimize  the  risks  or  losses 
involved  in  running  out  of  a 
crucial  part  or  item. 

Reorder  timing.  Programs  can  be  used  to 
compute  the  reorder  point  based  on  inventory  car- 
rying costs,  stockout  costs,  and  demand  variation. 

Facility  scheduling.  Programs  can  be  used 
to  compute  job  shop  performance  (average  turn- 
around time,  percent  late,  and  so  on)  based  on  a 
variety  of  scheduling  rules  (for  example,  first  in- 
first  out,  or  most  over-due  items  first)  and  on  job 
processing  times. 

Demand  forecasting.  Programs  can  be  used 
to  compute  a  forecast  of  future  demand  by  expo- 
nentially smoothing  past  demand. 

Market  and  media  research.  Programs  can 
perform  many  aspects  of  this  kind  of  research,  in- 
cluding questionnaire  analysis. 

Purchasing.  Program  can  analyze  vendors 
(for  example,  order-filling  speed,  and  previous 
complaints)  to  select  the  best  over-all  vendors. 

Bid  preparation  and  job  pricing.  The 
salesman  or  contractor  would  find  a  bid  preparation 
program  useful  in  calculating  variable  sales  prices, 
keeping  running  totals,  and  figuring  mark-ups  or 
mark-downs.  Preparation  on  the  computer  typically 
requires  one  fifth  to  one  tenth  the  time  required  by 
manual  methods  and  frees  time  for  profit-making. 

GENERAL  BUSINESS  CALCULATIONS 
AND  BUSINESS  ACCOUNTING  SYSTEMS 

The  computer  can  be  used  to  keep  track  of 


accounts  receivable,  to  prepare  aged  trial  balances, 
monthly  statements,  follow-up  sales  letters,  and 
collection  letters,  and  to  provide  on-line  account 
status  inquiry  handling. 

Writing  a  Small  Business  Accounting  System 

The  following  is  an  outline  of  a  small  business 
accounting  system  designed  for  use  on  a  small  com- 
puter with  a  printer  and  floppy  disks.  The  program 
is  intended  for  use  by  an  individual  proprietorship 
or  a  small  partnership.  For  such  a  business,  tax 
returns  are  prepared  (either  form  1040  schedule  C 
or  form  1065),  bookkeeping  is  done,  and  balance 
sheets  are  produced  by  the  system  described  for 
management  and  banking  purposes.  Advantages  of 
computerizing  this  information  include  savings  in 
time  and  improved  error  detection. 

The  most  desirable  bookkeeping  system  is 
called  the  double  entry  system;  each  transaction  is 
entered  into  two  different  accounts,  and  thus,  the 
system  is  self-checking.  With  the  double  entry 
system,  each  transaction  is  first  recorded  as  money 
coming  from  some  account  and  then  recorded  as 
money  going  to  some  account.  Debits,  abbreviated 
as  DR  for  computer  use,  represent  an  addition  to 
your  account  or  to  an  expense;  credits,  abbreviated 
CR  represent  a  subtraction  from  an  account  or  from 
an  expense.  To  determine  whether  or  not  the  book- 
keeping has  been  done  correctly,  find  out  whether 
or  not  the  debits  always  equal  the  credits.  For 
example,  if  you  paid  a  bill  for  $50  and  received  a 
check  for  $100  for  services  performed,  the  book- 
keeping entries  would  be  as  follows: 

a.  Debit  (subtract  from  what  you  owe)  ac- 
counts payable  for  $50. 

b.  Credit  (subtract  from  what  you  have)  cash 
on  hand  for  $50. 

c.  Debit  (add  to  what  you  have)  cash  on  hand 
for  $100. 

d.  Credit  (add  to  revenue)  income  or  revenue 
for  $100. 

The  continual  up-keep  of  the  status  of  each  account 
for  a  business  is  the  purpose  of  the  bookkeeping 
program.  An  example  of  the  account  files  along  with 
a  suggested  computer  abbreviation  for  each  is  listed 
here: 
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EXPENSES  (debit  to  add,  credit  to  subtract)  Receivable 


Return  and  allowances 

Depreciation 

Business  taxes 
Rent 
Repairs 
Bad  debts 


Professional  fees 
Amortization 


RTN  (goods  returned 
for  refund) 

DEP  (for  equipment 
owned) 

TAX 

RNT 

RPR 

BDB  (for  the  charge-off 
accounting 
method) 

PRF 

AMT  (charge 

partial  costs  of  or- 
ganization     ex- 
pense, re- 
search/ 
development, 
etc.) 

FUL 

PON 

PWR 

SAL  (does  not  include 
wages  included  in 
cost  of  goods  sold) 

INT  (interest  paid, 
only) 

LAB 

PUR 

INS 

PEN 

DPL  (used  for  such  as- 
sets as  mines/oil 
fields) 

MAT 

CGS  (includes:  pur- 
chases, 

materials/ 
supplies,  labor/ 
production  costs, 
other  costs) 


ASSETS  (debit  to  add,  credit  to  subtract) 


Fuel 

Telephone 
Electricity 
Salaries  and  wages 


Interest 

Labor/production  costs 
Purchases 
Insurance 

Pension/profit  sharing 
Depletion 


Materials/supplies 
Cost  of  goods  sold 


Inventory 

Prepaid  expenses 

Supplies 

Equipment 

Investments 

Miscellaneous 


RBL  (amounts  owed  by  cus- 
tomers on  accounts) 
INV 
PPD 
SUP 
EQT 
IVS 
ETC 


LIABILITIES  AND  EQUITY 


Payables 

Notes 

Long  term  payables 

Proprietor 


Drawing 


PBL  (amounts  owed  on 

an  account) 
NOT  (borrowed  money) 
LTP 

PRP  (amount  invested  in 
business  and  net  in- 
come) 
DRW  (amount        from 
which  owner  may 
use  money  for  per- 
sonal expenses) 


REVENUES  (credit  to  add,  debit  to  subtract) 


Gross  receipts 
Other  revenue 


RCP 
REV 


The  IRS  requires  reports  in  the  following  areas: 
depreciation,  business  taxes,  repairs,  and  amorti- 
zation. 

The  various  reports  that  may  be  generated  by 
the  system  include  the  balance  sheet;  a  sample 
balance  sheet  is  listed  below: 


ASSETS 

Equipment  5000. 
Receivables  500. 
Cash  3000. 

Total  8500. 


LIABILITIES 

Notes         2000. 
Payables    3500. 


Total 


5500. 


Cash 


CSH  (usually  checking  acct. 
balances) 


EQUITY 

Proprietor        3000 

Total  (Liabilities  +  Equity)  = 

*  8500. 
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Assets  represent  what  the  businessman  has,  li- 
abilities represent  the  amounts  owed,  and  equities 
are  amounts  contributed  or  earned  by  the  owners. 

Another  report  that  is  a  necessary  part  of  a 
small  business  accounting  system  is  termed  the 
income  statement.  It  displays  the  income  and  ex- 
pense of  the  business  during  a  certain  length  of  time 
(a  period) ;  it  may  be  used  to  fill  out  tax  forms  1040C 
or  1065.  To  generate  this  report,  total  income  is 
computed  and  total  expenses  are  subtracted  from 
this  figure.  Income  for  accounts  may  be  stated  on  an 
accrual  basis,  which  is  to  say  that  future  expenses 
or  revenues  are  included  if  the  exact  amount  is 
known  and  certain  (for  example,  the  amounts  cus- 
tomers owe  may  be  stated  on  an  accrual  basis). 
Business  owners  may  prefer  to  prepare  a  tax  return 
report  on  a  cash  basis  in  which  the  only  revenue 
considered  is  to  be  cash  in  and  the  only  expenses 
considered  are  cash  out.  To  prepare  such  a  report, 
you  must  eliminate  payables,  receivables,  prepaid 
expenses,  and  supplies  not  yet  part  of  the  cost  of 
goods  sold;  the  revenue  and  expense  accounts 
should  be  adjusted  to  reflect  this  change. 

Another  necessary  report  is  the  ledger  of  which 
may  be  two  types:  summary  and  detailed.  The  de- 
tailed ledger  is  a  complete  listing  of  each  account 
transaction  (name,  amount,  and  so  on)  that  has  been 
input  within  a  certain  period  of  time  (usually  done 
on  a  weekly  or  monthly  basis).  The  balances  up  to 
the  time  of  the  beginning  of  the  report  have  been 
stored  from  prior  ledgers  and  are  read  into  the 
computer.  Thus,  a  report  listing  each  transaction 
and  the  remaining  balance  in  each  account  is  gener- 
ated. The  summary  ledger  report  only  lists  the 
remaining  balances  after  adding  and  subtracting  all 
transactions  for  a  given  period  of  time. 

The  balance  sheet  is  the  final  report  necessary 
on  a  small  accounting  system.  The  sum  of  the 
liabilities  is  subtracted  from  the  sum  of  the  assets  to 
determine  the  balance  or  net  profit  for  the  business 
owner.  This  balance  is  credited  to  the  pro- 
prietor (PRP)  account,  and  thus,  the  assets  plus  the 
net  income  will  balance  (equal)  with  the  liabilities. 

Additional  functions  of  the  accounting  system 
could  include  forecasting  income  using  trend-line 
analysis  of  previous  balance  sheets,  forecasting 


other  accounts  using  previous  records,  preparing 
amortization  schedules,  determining  depreciation 
amounts  and  budgeting  cash  based  on  forecasted 
cash  on  hand  and  cash  payable. 

The  accounting  system  flowchart  is  shown  in 
Fig.  2-2. 

ADDITIONAL  APPLICATIONS  FOR  THE  SMALL 
BUSINESS  PERSON  OR  THE  PROFESSIONAL 

The  small  business  person  or  professional 
could  use  his  or  her  microcomputer  for  the  follow- 
ing additional  purposes. 

Order  processing.  The  computer  could  be 
used  for  order  editing,  freight  cost  computation, 
credit  checks,  stock  availability  checks,  and  order 
status  checks.  A  billing/invoicing  calculation  pro- 
gram could  provide  the  following  information:  net 
total,  total  tax,  total  tax  plus  freight,  total  profit, 
percent  of  net  profit,  total  value  of  back-ordered 
items,  total  discount  amount,  total  gross  amount, 
and  total  cost  amount. 

Sales.  The  computer  could  prepare  a  break- 
down of  sales  volume  and  profitability  by  product, 
customer,  or  salesman.  Sales  order  processing 
software  could  print  packing  slips,  deduct  sold  mer- 
chandise from  inventory,  verify  orders,  process 
returned  goods,  accumulate  back  orders,  enter  cash 
receipts,  print  invoices,  print  sales  and  credit  jour- 
nals, and  maintain  a  customer  master  file. 

General  accounting.  General  accounting 
functions  include  cost  record  keeping,  budgeting, 
daily  exception  recordkeeping,  and  the  issuing  of 
profit  and  loss  statements. 

Mailing  list.  One  of  the  prime  assets  of  a 
small  business  is  its  mailing  list,  representing  cus- 
tomers who  are  likely  to  be  repeat  purchasers.  The 
personal  computer  simplifies  mailing  list  mainte- 
nance and  is  capable  of  sorting  names  according  to  a 
variety  of  characteristics,  depending  upon  how 
much  information  is  stored  by  the  program  in  addi- 
tion to  names  and  addresses.  Consider  the  follow- 
ing promotional  or  money-saving  activities  that  can 
easily  be  accomplished  through  the  use  of  a  full- 
featured  mailing  list  program: 
•  Sort  list  by  zip  for  bulk  mail  savings. 
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START 


SELECT   PROPER 
REPORT 
GENERATION 
PROGRAM 


TAX  RETURN 

REPORT 

GENERATOR 


INCOME 
STATEMENT 
TAX  RETURN 


BALANCE 

SHEET 

GENERATION 


I  FORECASTING/ 
INPUTS 


FORECAST 
GENERATION 


CASH 
BUDGET 


BALANCE 

SHEET 

(PROJECTED) 


Fig.  2-2.  A  flowchart  for  an  accounting  system  program. 
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•  Sort  list  alphabetically  and  printout  as  a  customer 
reference. 

•  Mail  pieces  to  residents  of  a  certain  town  or  zip 
for  a  special  local  promotion. 

•  Mailings  to  customers  having  an  upcoming  birth- 
day. 

•  Mailings  to  all  women  announcing  a  special  sale 
on  dresses. 

•  Mailings  to  only  the  most  active  customers  for  a 
special  "favored  customer". 

The  ability  of  a  mailing  list  program  to  sort 
customers  by  these  and  other  criteria  requires  that 
special  codes  be  input  along  with  names  and  ad- 
dresses. The  coding  used  and  its  extent  are  at  the 
user's  discretion. 

Customer  file  management.  By  function- 
ing in  a  manner  similar  to  the  way  a  mailing  list 
program  functions,  a  customer  file  management 
program  could  keep  track  of  customers  in  a  way  that 
is  useful  to  the  business.  The  data  stored  could 
include  customer  name,  address,  phone,  occupa- 
tion, credit  limit,  current  balance,  brand  prefer- 
ence, total  purchases,  sales  representative,  and 
date  of  last  order.  The  business  manager  could  then 
obtain  lists  of  customers  according  to 

•  Outstanding  balance  of  30+  days,  for  collection 
purposes. 

•  Brand  preference,  for  research  and  promotional 
purposes. 

•  Sales  representatives. 

•  Those  who  have  not  ordered  within  the  last  year, 
for  consideration  of  removal  from  the  active  list 
or  for  a  followup  campaign. 

•A  mailing  list  program  could  be  combined  with  a 
customer  maintenance  program  to  provide  a  pow- 
erful tool— an  accurate  profile  of  your  customer 
base,  useful  reports  for  the  sales  staff,  and  a  means 
for  select  mail  promotion. 

Payroll.  A  complete  payroll  calculation  pro- 
gram would  include  the  following  features:  time- 
card  hours  computation,  check  writing,  and  provi- 
sions for  commissions,  bonuses,  piecework 
salaries,  incentives.  W-2  forms,  and  payroll  sum- 
maries could  also  be  outputted. 

Inventory.  A  complete  inventory  manage- 


ment program  should  be  able  to  output  the  following 
reports:  detailed  inventory,  inventory  status,  on- 
order,  order  exception,  analysis  by  cost,  list  for  use 
in  physical  inventory,  period  to  date,  year  to  date, 
minimum  quantity  search,  and  inventory  projec- 
tions. The  following  file  update  functions  should 
also  be  provided:  place  and  order,  cancel  an  order, 
add  a  new  inventory  form,  delete  an  existing  in- 
ventory item,  initial  a  new  period  or  year.  The 
inventory  program  could  also  print  purchase  orders 
or  reminders. 

Contract  preparation.  A  word-processing 
system  could  print  personalized  contract  forms. 
Cost  estimation  functions  could  also  be  integrated 
into  the  contract  preparation  program. 

General  business  calculations.  Consider 
the  use  of  your  personal  computer  or  programmable 
calculator  in  performing  the  following  general  busi- 
ness computations,  which  may  previously  have 
been  too  awkward  or  time  consuming  when  done  by 
manual  methods:  cash  flow,  breakeven  point,  gov- 
ernment withholding  calculations,  selling  price 
from  cost  and  gross  profit  prorating,  unit  price 
comparisons,  order  quantity  for  optimum  price 
break,  moving  average,  seasonal  average,  cyclical 
analysis,  histogram  generation,  Worse-case 
analysis,  universal  rate  of  return,  summation  of 
ledger  columns,  optimum  markup  or  markdown, 
net  present  value,  choice  between  debt  and  equity, 
lease  versus  buy  determinations,  funds  statement 
preparation,  perpetual  sales  quantity,  and  gross 
sales  revenue. 

Capital  equipment  investment  analysis. 
The  simple  BASIC  program  in  Listing  2-13  com- 
putes the  maximum  purchase  price  for  a  piece  of 
equipment  based  upon  estimated  profits. 


Professional  Practice  Management 

Professionals  with  large  practices  should  con- 
sider using  a  personal  computer  system  in 

•  Maintaining  appointments 

•  Billing  and  collection 

•  Generating  appointment  reminders 

•  Accessing  reference  libraries  and  data  resources 
for  journal  articles,  diagnoses,  case  laws,  stan- 
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Listing  2-13:  The  Capital  Equipment  Investment  Analysis  Program 


90  D 

100 

HO 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 


IM  R(100) 

REM  CAPITAL  EQUIPMENT  INVESTMENT  ANALYSIS 

REM  DETERMINES  THE  MAXIMUM  PURCHASE  PRICE  FOR  EQUIPMENT 

REM  BASED  UPON  ESTIMATED  PROFITS 


THE 
THE 


EST.  NO. 
INTEREST 


OF  YEARS  OF 
RATE.";  I 


INPUT  "ENTER 

INPUT  "ENTER 

FOR  X  =  1T0  N 

PRINT  "ENTER  THE  PROJECTED  EARNINGS  FOR  YEAR: " 

INPUT  R(X) 

NEXT  X 

FOR  X  =  1  TO  N 

Q=Q+R < X ) / I C X 

NEXT  X 

PRINT  "THE  RECOMMENDED  PURCHASE  PRICE  IS:  *";Q 

END 


EQUIPMENT    LIFE"?     N 


dards,  rules  and  regulations,  codes,  and  drug 
information. 

•  Correspondence  and  document  preparation 

•  Telecommunication  with  laboratories  for  diag- 
nostic tests. 

•  Insurance  form  preparation  or  transmission. 

Business  Letters 

Professionally  prepared  files  of  business  let- 
ters are  available  for  popular  personal  computers  to 
save  you  time  and  enable  you  to  produce  better 
letters.  Typically  over  1000  letters  are  available  for 
review,  modification,  and  output  with  the  use  of  a 
word  processing  program. 

The  new  U.S.  Post  Office  E •COM  (electronic 
computer-originated  first  class  mail)  system  per- 
mits the  transmission  of  business  letters  via 
modem  to  the  E^COM  network;  the  letter  will  be 
printed  and  mailed  for  delivery  the  next  day  any- 
where in  the  U.S.  The  current  rate  is  $0.26  each. 
The  system  may  be  used  for  anyone  with  a  modem 
and  a  personal  computer  upon  payment  of  a  $50.00 
annual  accounting  fee. 

Sales  Device 

The  small  computer  may  be  used  as  a  sales 
device  in  several  ways.  Now  that  telephone  dialing 
interfaces  are  available,  you  can  use  the  computer 


to  call  every  possible  telephone  number  in  an  ex- 
change or  from  a  customer  file  and  deliver  a  tape- 
recorded  retail  sales  message  to  anyone  who 
answers.  At  expositions  or  retail  sales  outlets,  a 
computer  with  a  video  display  can  continually  list 
sales  information.  Crude  question-answering 
capabilities  could  also  be  provided. 

Use  of  the  computer  as  a  customer  advisor  can 
increase  sales  traffic  as  well.  For  example,  a  garden 
supply  shop  could  provide  customers  with  access  to 
a  computer  programmed  to  answer  gardening 
questions  about  specific  plants  (for  example,  ques- 
tions about  growing  seasons  and  nutrient  require- 
ments), amount  and  type  of  fertilizer  for  a  certain 
size  lawn  and  type  of  grass,  and  possibly  output  a 
complete  garden  plan.  A  wine  shop  computer  could 
recommend  a  type  of  wine  to  accompany  a  given 
meal,  the  glass  and  temperature  to  use,  and  the 
comparative  prices  of  wines.  The  cosmetics  de- 
partment of  a  store  could  use  the  computer  to 
suggest  brand  name  cosmetics  to  use  in  achieving  a 
certain  complexion.  A  swimming  pool  maintenance 
company  advertises  that  it  offers  a  free  computer 
analysis  of  anyone's  swimming  pool  water.  From 
water  samples,  the  computer  determines  the  type 
and  amount  of  chemicals  necessary  to  maintain  a 
specific  pool;  these  chemicals  are  then  sold  to  the 
pool  owner. 
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The  Calculation  of  the 

Number  of  Days  Between  Two  Dates 

Businesspeople  often  need  to  know  how  much 
time  (usually  in  terms  of  days)  there  is  between  two 
given  dates.  A  program,  such  as  the  one  in  Listing 
2-14  stores  the  number  of  days  in  each  month  and 
could  serve  to  calculate  this  value.  Additionally, 
time  conversions  between  seconds,  minutes, 
hours,  days,  weeks,  months,  and  years  could  be  • 
performed. 


Time  Calculations 

Calculation  of  the  difference  in  hours  or  days 
between  two  given  times  is  another  business  appli- 
cation. The  results  can  be  used  in  determining 
hours  worked  for  payroll  purposes  or  in  figuring 
accumulated  interest.  The  program  in  Listing  2-15 
calculates  the  difference  between  two  times. 

Time  differences  between  major  cities  or  time 
zones  could  be  calculated  by  a  program.  A  world 
map  could  also  be  displayed  on  a  video  screen  with 


Listing  2-14:  The  Calculation  of  the  Number  of  Days  Between  Two  Dates  Program 

10  REM  DAYS  BETWEEN  TWO  DATES  CALCULATION  (IN  SAME  YEAR) 

20  DIM  M<12) 

30  FOR  X=l  TO  12 

40  READ  M<X) 

50  NEXT  X 

60  PRINT  "IS  THIS  A  LEAP  YEAR  1  =  YES,  2  =  NO"; 

70  INPUT  A 

SO  IF  A=l  THEN  M(2)=29 

90  PRINT  "INPUT  THE  FIRST  DATE  NUMERICALLY  IN  THIS  FORM:  DAY,  MON 

TH  " 

100  INPUT  Dl,  Ml 

110  PRINT  "INPUT  THE  SECOND  DATE  IN  THE  SAME  FORM" 

120  INPUT  D2,  M2 

125  IF  M1=M2  THEN  DA=D2-D1 : BOTO  200 

130  EM=M(M1)-D1 

140  IF  M1+1=M2  THEN  190 

150  FOR  X=M1+1  TO  M2-1 

160  DA=DA+M(X) 

170  NEXT  X 

190  DA=DA+EM+D2 

200  PRINT  "THE  NUMBER  OF  DAYS  =  " ; DA 

210  END 

220  DATA  31 ,28, 31, 30, 31 ,30, 31, 31, 30, 31 ,30, 31 


Listing  2-15:  The  Time  Difference  Program 

10  REM  TIME  DIFFERENCE  CALCULATION 
20  REM  COMPUTES  DIFFERENCE  IN  HOURS, 
30  PRINT  "INPUT  THE  FIRST  TIME  IN  24. 
40  PRINT  "HOURS,  MINUTES,  SECONDS. " 
50  INPUT  HI, Ml, SI 

60  PRINT  "INPUT  FINAL  TIME  IN  24.  HR. 
70  INPUT  H2,M2,S2 
SO  NH=H2-H1 


MINUTES,  AND  SECONDS 
HR.  CLOCK  FORMAT-" 


FORMAT. 


74 


90  NM=M2-M1:IFNM<0  THEN  NH=NHH-1 : NM=60+NM 

100  NS=S2-Si:lF  NS<0THEN  NM=NM-1 : NS=60+NS 

110  PRINT  "THE  DIFFERENCE  IN  H,M,S  IS" 5 NH; NM5 NS 

140  PRINT 

150  END 


the  appropriate  times  in  major  cities  continuously 
updated.  This  application  may  be  useful  to  those 
making  long  distance  calls  or  flying  into  other  time 
zones. 

The  Calculation  of  Reference  Tables 

Any  mathematical  function  may  be  expressed 
as  a  table  of  values  corresponding  to  the  factors  in 
the  equation.  Businesspeople  who  need  to  calculate 
the  value  of  a  particular  function  could  produce  a 
table  listing  values  at  specified  intervals  for  easy 
reference.  For  example,  a  portion  of  a  chart  used  in 
converting  British  pounds  to  American  dollars  is 
reproduced  here.  Note  that  the  dollar  equivalents 
are  found  in  the  interior  of  the  chart. 


hundredths  of  pounds 

• 

.00 

.10 

.20 

.30     .40     .50     .60     .70 

.80 

.90 

<0    1 

1.90 

2.09 

2.28 

2.47  2.66  2.85  3.04  3.23 

3.42 

3.61 

^2 

3.80 

3.99 

4.18 

4.37  4.56  4.75  4.94  5.13 

5.32 

5.51      T 

n.3 

5.70 

5.89 

6.08 

6.27  6.46  6.65  6.84  7.03 

7.22 

7.41       ' 

4 

7.60 

7.79 

7.98 

8.17  8.36  8.55  8.74  8.99 

9.12 

9.31 

The  conversion  rate  for  this  chart  is  1. 90  dollars  per 
British  pound.  As  an  example  of  its  use,  the  number 
of  dollars  that  are  equivalent  to  4. 90  pounds  is  given 
by  the  chart  as  9.31.  The  BASIC  program  used  to 
print  the  chart  is  shown  in  Listing  2-16  and  can  be 
used  as  a  model  for  similar  programs  designed  to 
calculate  reference  tables. 

Your  computer  can  be  a  time  saver  by  com- 
puting and  outputting  tables  concerning  areas  such 
as 

•  Stock  commissions. 

•  Values  of  an  investment  or  savings  account  over 
periods  of  time. 

•  Unit  prices  after  certain  quantity  purchases. 

•  Break-even  values  for  various  prices  and  sales  of 
a  product. 

UPS/USPS  rates  to  various  cities  for  various 
weights. 

THE  COMPUTER  AND  THE  PROFESSIONS 

In  this  section  a  variety  of  ways  in  which  the 


Listing  2-16:  The  Reference  Table  Program 

10  CLS 

20  PRINT  "  CONVERT  DOLLARS  TO  FOREIGN  CURRENCY" 

25  INPUT  "ENTER  NAME  OF  FOREIGN  CURRENCY  TO  BE  CONVERTED: " ,B$ 

30  INPUT  "ENTER  DOLLAR  VALUE  OF  ONE  UNIT  OF  DESIRED  FOREIGN  CURRE 

NCY  (I.E.,  1.9  FOR  BRIT-  ISH  POUND)  ",A 

50  A$="##.##   " 

55  CLS 

60  PRINT  TAB((80-LEN(B$))/2)B$:PRINT 

70  PRINT  "       .00     .10     .20     .30     .40     .50 

.70     .80     90 

80  FOR  X=l  TO  10 

90    PRINT  USING  "   #  ";X; 

100    FOR  B=0  TO  1  STEP  .1 

110      PRINT  USING  A$;A*(X+B)f 

120    NEXT  B 

130    PRINT 

140  NEXT  X 

150  INPUT  "PRESS  RETURN  TO  END", A$: END  


.60 
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personal  computer  or  p 

rogrammable  calculator  can 

Costs  of  materials  and 

be  used  in  the  professi 

ons  and  in  many  blue  collar 

labor 

occupations  are  listed.  This  short  listing  is  far  from 

Estimates 

complete;  uses  of  calculators  and  computers  are  so 

Banking: 

Interest,    assets,    an- 

diverse that  these  descriptions  can  only  be  sugges- 

nuities, insurance 

tive  of  a  few  of  the  many  applications. 

Foreign  exchange 

Collateral 

Accountants  and  tax 

All  aspects  of  work 

Trust  and  pensions 

specialists: 

Broadcasting: 

Program  scheduling 

Advertising: 

Client  fees 

Advertising  rates 

Composition  and  print- 

Station logs 

ing  costs 

Building  contractor: 

Measuring  land  sites 

Production  (film  and  TV) 

Amounts  and  costs  of 

costs 

roofing,  flooring, 

Space  and  time  buying 

siding,  etc. 

Statistics  in  market  re- 

Electrical loads  and 

search 

needs 

Agriculture: 

Yields  per  acre 

Figuring  gutters,  win- 

Livestock growth  and 

dows,  screen  sizes 

feeding 

Water  pressures, 

Livestock  food  supple- 

plumbing 

ments 

Work  schedules  and 

Crop  mix  and  rotation 

transportation 

Fertilizer  ratios 

Building 

Supplies  and  power 

Appraisers: 

Comparative  values 

maintenance: 

Waste  disposal 

Quantities 

Buyer: 

Comparative  costs 

Summations 

among  suppliers 

Architects: 

Strength  of  materials 

Shipping  charges 

Loads,  stresses,  and 

Foreign  size  conver- 

strains 

sions 

Geometrical  configura- 

Cost relative  to  markup 

tions 

at  retail 

Artists  and  designers: 

Supplies  and  materials 

Profit  potential 

Scale  reductions  and  ex- 

Chemists and  lab 

Quantitative  measure- 

pansions 

technicians: 

ments 

Client  fees  by  hours 

Composition  of  solutions 

worked 

and  compounds 

Attorneys: 

Terms  of  contracts 

Rates  of  reactions 

Tax  calculations 

Volumetric  and  grav- 

Bankruptcy dispositions 

imetric  analysis 

Auto  salesmen: 

Optional  equipment 

Construction 

Calculations  of  mate- 

costs 

trades: 

rials,  labor  time, 

Discounts  and  prices 

charges,  and  so  on  by 

Used  car  allowances 

bricklayers,  masons, 

Auto  service  and 

Towing  and  road  service 

carpenters,   plaster- 

repair: 

costs 

ers,  plumbers,  etc. 
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Dieticians: 


Educators— teachers: 


Employment 
counselors: 


Engineers: 


Geologists: 


Hotel  and  inn  keepers 


Independent 
businesses: 


Food  quantities  and 

costs 
Nutritional  and  caloric 
values 

Grading  homework  and 
examination  papers 

Classroom  games  and 
instructions  in  arith- 
metic, English,  etc. 

Working  conditions, 
wages,  and  salaries 

Fringe  benefits 

Labor  supply  and  open- 
ings 

All  phases  of  construc- 
tion, including  plant 
location  studies,  tax 
rates,  labor  and 
transportation 
charges,  loads, 
amounts  and  costs  of 
raw  materials,  exca- 
vation needs,    fill, 
wood,  wire  and  ce- 
ment forms,  steel 
reinforcement, 
strength  of  materials, 
electrical        loads, 
chemical  reactions, 
etc. 

Land  measurements 

Chemical  analysis  and 
assays 

Mineral  depletion  rates 

Supplies  and  labor 

Occupancy  rates 

Concession  profits  and 
activity 

Group  discounts  and  cat- 
ering 

Balance  sheet,  profit  and 
loss  statements 

Purchases,  returns,  and 
allowances 

Cost  of  materials,  labor, 
services,  loans 


Insurance  salesman: 


Interior  decorating: 


Jewelers: 


Landscape  architects 
and  contractors: 


Manufacturer's 
representative: 


Market  research: 


Medical,  dental,  and 
other  health 
services: 


Figuring  profit  on  in- 
vestment and  costs  of 
expansion 

Itemizing  for  tax  deduc- 
tions 

Depreciation  schedules 

Premiums,  dividends  on 
policies 

Annuities 

Alternative  insurance 
packages 

Proper  levels  of  cover- 
age 

Amounts  and  costs  of 
fabrics,  rugs,  carpet- 
ing, drapes,  wall- 
paper, etc. 

Discounts  for  quantity 

Shipping  times  and 
charges 

Pricing  and  costs 

Composition  of  precious 
metals 

Gem  weights  and  sizes 

Land  areas,  planting  and 
fertilization 
schedules 

Land  fill 

Cost  of  items  less  dis- 
counts 

Shipping  and  insurance 
costs 

Invoices  prepared  for 
suppliers  and  clients 

Statistics  of  opinion  and 
field  testing 

Extent  and  nature  of 
competition 

Prescribing  or  utilizing 
medications,  anes- 
thetics, prosthetic  de- 
vices, etc. 

Operational  costs  of  ser- 
vices 

Supplies  inventories  and 
costs 
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Pattern  makers: 


Personnel 
administration: 


Pharmacists: 


Photographers: 


Pilots: 


Printers: 

Psychologists: 

Publishing: 


Real  estate: 


Restaurants: 


Geometric   configura- 
tions 

Measurements  and  con- 
versions 

Alternative  designs 

Absenteeism  rates,  effi- 
ciency 

Vacations,  illness  rates 

Wage  rate  compliances 
and  comparisons 

Employee  benefits 

Hirings  and  severances 

Pharmaceutical  mea- 
surements 

Supplies  inventory  and 
costs 

Pricing 

Composition  of  solutions 

Supplies  comparisons 

Pricing 

Exposure  times  and 
shutter  speeds 

Passenger  and  freight 
loads 

Fuel  consumption  and 
capacities 

Navigation 

Paper  stocks 

Scheduling  printing  runs 

Psychological  testing 

Statistics  of  experiments 

Composition  and  print- 
ing costs 

Postage  and  shipping 
costs 

Inventory  control 

Distribution  costs 

Discounts 

Market  and  appraised 

value 
Development  costs 
Taxes,  insurance,  wa- 
ter, and  heating  costs, 
Closing  fees 
Commissions 
Food  and  liquor  costs 


Renting  and  leasing: 


Sales,  door  to  door: 


Sales,  retail: 


Secretaries: 


Security  analysts: 


Securities  salesmen: 


Social  services: 


Surveyors: 
Travel  agents: 


and  prices 

Tips 

Interest  charges  and 
cash  flow 

Inventory   and   usage 
rates 

Travel  and  other  ex- 
penses 

Statements  to  suppliers 

Commissions 

Taxes  and  commissions 

Inventory  and  turnover 

Pricing— markups  and 
markdowns 

Petty  cash,  travel  ex- 
penses 

Postage  costs 

Budget,  production, 
sales  reports 

Employer's  personal  fi- 
nances 

Correspondence  and 
memo  verification 

Profits,  expenses,  P/E 
ratios  working  capi- 
tal, depreciation, 
growth    rates,     di- 
vidends, etc. 

Technical   and  funda- 
mental analyses 

Margin  costs  and  availa- 
bility 

Dividend  and  interest 
yields 

Commissions  earned 

Growth  rates,  price 
changes,  balanced 
portfolios 

Welfare  availability  ver- 
sus family  needs 

Family  budgeting 

Land  measurements 
Discounts  on  fares, 

tours,  hotels 
Commissions  earned 
Distances  and  costs  per 
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Trucking  and  shipping: 


Typographers: 


distance 

Converting  foreign  cur- 
rencies, kilometer 
distances,  etc. 

Billing  airlines,  steam- 
ship lines,  bus  com- 
panies, tours,  hotels, 
etc. 

Load  capacities  by 
weight  and  volume 

Distances,  time  sched- 
ules, costs 

Equipment  inventory 
and  maintenance 

License  fees  and  taxes 

Printers'  measurements 


Waiters  and  waitresses: 

Wholesalers  and 
manufacturers 


Plates  and  etchings 

Tips 

Totaling  checks 

Labor  and  overhead 

Loss  on  discounting 
customers'  interest- 
bearing  notes 

Interest  on  account  bal- 
ances 

Recording   payments, 
promissory  notes, 
partial  payments 

Consignments  and  re- 
turns 

Shipping  costs  and  taxes 
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Chapter  3 


Mathematical  and 
Statistical  Applications 


One  of  the  biggest  assets  of  the  computer  is  its 
ability  to  perform  complicated  and  tedious 
mathematical  calculations  with  unerring  diligence. 
Your  personal  computer  may  be  programmed  to 
emulate  a  simple  adding  machine  or  a  complex  sci- 
entific business  calculator.  It  can  perform  statistical 
computations  of  use  to  those  involved  with  busi- 
nesses, investments,  questionnaire  analysis,  the 
sciences,  and  other  fields. 

THE  COMPUTER  AS  A  SOPHISTICATED  CALCULATOR 

A  program  could  be  written  to  emulate  the 
functions  of  an  ordinary  or  an  RPN  calculator.  The 
computer  could  be  used  as  a  simple  business  or 
scientific  calculator  for  a  variety  of  purposes.  Addi- 
tionally, functions  not  provided  on  an  ordinary  cal- 
culator could  easily  be  included  (for  example,  the 
ability  to  solve  quadratic  equations). 

RPN  Calculator 

RPN  stands  for  Reverse  Polish  Notation  and  is 
a  system  of  representing  mathematical  equations. 


Some  of  the  advanced  scientific  calculators  use  the 
RPN  system  because  fewer  keystrokes  are  re- 
quired to  do  complex  calculations  with  an  RPN 
system  than  with  the  regular  system.  The  RPN 
system  is  often  easier  to  use  after  you  have  gained 
familiarity  with  it.  The  purpose  of  the  program  in 
Listing  3-1  is  to  emulate  an  RPN  calculator,  pro- 
viding about  50  mathematical  functions.  This  pro- 
gram is  thus  composed  of  50  subroutines,  identified 
by  REM  statements,  that  may  be  used  as  sub- 
routines in  other  BASIC  programs  that  require 
functions  not  provided  by  your  version  of  BASIC. 
In  the  RPN  system  there  are  no  parentheses 
and  no  =  (equals)  key.  Only  two  numbers  are 
worked  with  at  one  time.  A  sample  calculation 
would  proceed  as  follows: 


Step 


Input 

2.5 


Display 


Comments 

Enter  first  number 

These  are  the  four 
registers 
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Step 


Input 

4 


(D 


© 


© 


© 


10 


© 


+ 


Display 

4 

2.5 
0 
0 


10 

4 
2.5 

0 


10 

10 

4 

2.5 

5 

10 
10 

4 

2 
5 
5 

10 
10 


12 
2 
5 

10 


Comments 

Enter  second  number 
as  new  numbers  are 
input,  preceding  inputs 
are  shifted  through  the 
registers. 

*  stands  for  multiplica- 
tion. The  answer  to 
2.5  x  4  was  calculated 
and  put  in  the  first  po- 
sition in  the  display. 

enter  third  number 


enter  fourth  number 


/  stands  for  division. 
The  following  calcula- 
tion was  performed, 
and  the  answer  was 
stored  in  the  first  dis- 
play position:  10/5 
=  2 

The  +  sign  instructed 
that  the  two  preceding 
results  were  to  be 
added:  10+2=12;  the 
answer  was  stored  in 
the  first  position.  The 
two  preceding  results 
were  added  because  no 
new  numbers  were  in- 
put for  the  computa- 
tion. 


The  functions  available  in  this  program  are 
listed  and  described  below: 


function 

description 

* 

multiplication 

+ 

addition 

/ 

division 

— 

subtraction 

powers  (e.g.,  x    y 

stands  for  X  and  x    .5 

V 

stands  for  Vx) 

INV 

inverse  (e.g.,  1/x) 

C 

clear  display /registers 

SIN 

compute  the  sine  of  x 

ASIN 

compute  the  arcsine  of  x 

COS 

compute  the  cosine  of  x 

ACOS 

compute  the  arccosine  of 

TAN 

X 

compute  the  tangent  of  x 

ATAN 

compute  the  arctangent  of  s 

SEC 

compute  the  secant  of  x 

ASEC 

compute  the  arcsecant  of 

COT 

x 

compute  the  cotangent  of 

ACOT 

X 

compute  the  arccotangent 

of  X 

CSC 

compute  the  cosecant  of 

ACSC 

X 

compute  the  arccosecant 

of  X 

PI 

place  the  value  of  tt  in 

the  register 

E 

compute  the  exponential 

of  x  (i.e.,  ex) 

LOG 

compute  the  logarithm 

of  x 

MEM+ 

add  a  number  to  the 

memory  register 

MEM- 

delete  a  number  from  the 

memory  register 

% 

change  x  to  a  percentage 

value 

N! 

compute  the  factorial  of  x 

SD 

compute  the  standard 

deviation  for  a  set  of 

scores 

HYP 

compute  the  value  for  the 

hypotenuse  of  a  triangle 
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function 

description 

function 

description 

given  the  two  sides 

cotangent  of  x 

SIDE 

compute  the  value  for  a 

#SIN 

inverse  hyperbolic  sine 

side  of  a  triangle  given 

of  x 

the  hypotenuse  and  another  side 

#cos 

inverse  hyperbolic  cosine 

DEG 

change  x  from  radians  to 

of  X 

degrees 

#TAN 

inverse  hyperbolic 

RAD 

change  x  from  degrees  to 

tangent  of  x 

radians 

#SEC 

inverse  hyperbolic 

POLR 

compute  polar  coordi- 

cosecant of  x 

nates  given  rectangular 

#CSC 

inverse  hyperbolic 

coordinates 

cotangent  of  x 

RECT 

compute  rectangular 

#COT 

inverse  hyperbolic 

coordinates  given  polar 

secant  of  x 

coordinates 

SZ 

switch  the  z  registers 

MET 

compute  metric  conver- 

RZ 

rotate  the  z  registers 

sions—a  subprogram 

QUAD 

compute  solutions  to 

HSIN 

compute  the  hyperbolic 

quadratic  equations 

sine  of  x 

with  the  quadratic 

HCOS 

compute  the  hyperbolic 

equation 

cosine  of  x 

? 

put  computer  in  monitor 

HTAN 

compute  the  hyperbolic 

mode  so  that  ordinary 

tangent  of  x 

calculations  may  be 

HSEC 

compute  the  hyperbolic 

made  in  the  form 

secant  of  x 

PRINT  5*1.6.  Type 

HCSC 

compute  the  hyperbolic 

CONT  in  some  BASICs 

cosecant  of  x 

to  continue  with  the 

HCOT 

compute  the  hyperbolic 

program 

Listing  3-1:  The  RPN  Calculator  Program 

10   CLS 

20  REM  RPN  CALCULATOR 

30  REM  (C)  1978  MARK  R . SAWUSCH— MAY  NOT  BE  SOLD 

40  DIM  A(100),M$(21),D$(50),K(25) 

50  L=2 

60  DEFDBL  B,A,X,C,Z 

70  PRINT  "MAXI-CAL" 

80  G=1:F=1 

90  FOR  D=l  TO  50:READ  D$(D):NEXT 

100  PRINT"*  +  /  MIN  c  INV  C  SIN  ASIN  COS  ACOS  TAN  ATAN  SEC  ASEC 

COT  ACOT  CSC  ACS  C  PI  E  LOG  MEM+  MEM-  %  N!  SD  HYP  SIDE  DEG  RAD 

POLR  RECT  MET  HSIN  HCOS  HTAN  HSEC  HCSC  HCOT  #SIN  #COS  #TAN  #SEC 

#CSC  #COT  SZ  RZ  QUAD  ?" 

110  PRINT  "EACH  COMMAND/FUNCTION  IN  LINE  60  MUST  CONTAIN  4 

LETTERS  AND/OR  SPACES  FOR  PROP-  ER  OPERATION.   FOR  EXPLANATIONS  OF 

THE  COMMANDS,  SEE  THE  TEXT  IN  THE  BOOK  ACCOMPANYING  THIS 

SOFTWARE . "  ■ 
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115 
120 
130 
140 
150 
155 
160 
170 
180 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


F(l)=l  THEN 
TO  FIND  THE 
50 

THEN  290 


F(2)=l  ELSE 
COMMAND 


F(l)=l 


:PRINT:GOTO  150 


PRINT: PRINT  "USE  'END'  TO  RETURN  TO  END" 
D=l 

REM  ASK  FOR  COMMAND/ VALUES 
REM 

INPUT  "COMMAND" ;C$ 
IF  C$="END"  THEN  END 
O=0 

IF  VAL(C$)=0  THEN  GOTO  230      'IS  IT  A  LETTER  OR  A  NUMBER? 
A(G)=VAL(C$):A(G)=CDBL(A(G)):X=A(G):IF  F(l)=2  THEN  F(2)=2  EL 
SE  F(l)=2 

190  L=G 

IF  G=l  THEN  G=2  ELSE  G=l 

GOTO  2200 

GOTO  150 

A(G)=L1:IF 

REM  SEARCH 

FOR  1=1  TO 
IF  C$=D$(I) 

NEXT  I 

PRINT  "ILLEGAL  FUNCTION 

IF  I<=44  THEN  310 

IF  I>=45  THEN  1=1-44 -.GOTO  320 

ON  I  GOTO  340,370, 400, 430,460, 480, 500,520, 550, 580, 610, 640, 
670,700,730,760,790,820,850,880,910,940,970,1040,1090,1120,1160, 
1320,1350,1370,1400,1430,1480,1490,1750,1780,1810,1840,1870,1900, 
1930,1960,1990,2020 

320  ON  I  GOTO  2050,2080,2100,2110,2120,2160 
330  REM  CALCULATE  * 

340  IF  F(1)=F(2)  AND  F(l)=l  THEN  X=Z1*Z4  ELSE  X=Z1*Z2 
350  GOTO  2200 
360  REM  CALCULATE  + 

370  IF  F(1)=F(2)  AND  F(l)=l  THEN  X=Zl+Z4  ELSE  X=Zl+Z2 
380  GOTO  2200 
390  REM  CALCULATE  / 

400  IF  F(1)=F(2)  AND  F(l)=l  THEN  X=Z4/Zl  ELSE  X=Z2/Z1 
410  GOTO  2200 
420  REM  CALCULATE  - 

430  IF  F(1)=F(2)  AND  F(l)=l  THEN  X=X4-X1  ELSE  X=Z2-Zl 
440  GOTO  2200 
450  REM  CALCULATE  POWERS 
460  X=Z2AZl:GOTO  2200 
470  REM  CALCULATE  INVERSES 
480  Zl=l/Zl:GOTO  2210 
490  REM  CLEAR  REGISTERS 
500  Z1=0:Z2=0:Z3=0:Z4=0:GOTO  2210 
510  REM  CALCULATE  SIN 
520  A(L)=SIN(A(L)*. 0174533) 
530  GOTO  2190 
540  REM  CALCULATE  ARC  SIN 
550  A(L)=ATN(A(L)/SQR(-A(L)*A(L)+1))*57. 29578 

560  GOTO  2190 

570  REM  CALCULATE  COSINE 
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580  A(L)=COS(A(L)*. 0174533) 

590  GOTO  2190 

600  REM  CALCULATE  ARC  COSINE 

610  A(L)=(-ATN(A(L)/SQR(-A(L)*A(L)+1))+1.5708)*57. 29578 
620  GOTO  2190 

630  REM  CALCULATE  TANGENT 

640  A(L)=TAN(A(L)*,0174533) 

650  GOTO  2190 

660  REM  CALCULATE  ARC  TANGENT 

670  A(L)=ATN(A(L))*57. 29578 

680  GOTO  2190 

690  REM  CALCULATE  SECANT 

700  A(L)=l/COS(A(L}*. 0174533) 

710  GOTO  2190 

720  REM  CALCULATE  ARC  SECANT 

730  A(L)=(ATN(SQR(A(L)*A(L)-1))+(SGN(A(L)-1)*1.5708))*57.29578 
740  GOTO  2190 

750  REM  CALCULATE  COTANGENT 

760  A(L)=1/TAN(A(L)*. 0174533) 

770  GOTO  2190 

780  REM  CALCULATE  ARC  COTANGENT 

790  A(L)=(-ATN(A(L)+1.5708))*57. 29578 

800  GOTO  2190 

810  REM  CALCULATE  COSECANT 

820  A(L)=1/SIN(A(L)*. 0174533) 

830  GOTO  2190 

840  REM  CALCULATE  ARC  COSECANT 

850  A(L)=(ATN(1/SQR(A(L)*A(L)-1))+(SGN(A(L)-1)*1. 5708) )*57. 29578 

860  GOTO  2190 

870  REM  VALUE  FOR  PI 

880  Zl=3.141592654#:GOTO  2210 

890  GOTO  2190 

900  REM  CALCULATE  NATURAL  LOGARITHM 

910  A(L)=EXP(A(L)) 

920  GOTO  2190 

930  REM  CALCULATE  LOGARITHM 

940  A(L)=LOG(A(L)) 

950  GOTO  2190 

960  REM  MEMORY  ADDITION 

970  DD=DD+1 

980  INPUT  "WHICH  REGISTER" ;D 

990  IF  D=l  THEN  M$ (DD) =STR$ (Zl)  ELSE  IF  D=2  THEN  M$ (DD) =STR$ (Z2) 

ELSE  IF  D=3  THEN  M$ (DD) =STR$ (Z3)  ELSE  M$ (DD) =STR$ (Z4) 

1000  INPUT  "DESCRIPTION: ",C$ 

1010  M$(DD)=M$(DD)+"  "+C$ 

1020  GOTO  150 

1030  REM  MEMORY  LISTING 

1040  FOR  D=l  TO  DD 

1050  PRINT  M$(D) 

1060  NEXT  D 

1070  GOTO  150 

1080  REM  CONV.  FOR  % 
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1090  A(L)=A(L)*.01 

1100  GOTO  2190 

1110  REM  COMPUTE  FACTORIAL 

1120  FOR  YY=1  TO  A(L) 

1130  A(L)=A(L)*(A(L)-YY) 

1140  NEXT  YY:GOTO  2190 

1150  REM  STATISTICS 

1160  PRINT  "IN  STATISTICAL  MODE  " 

1170  PRINT 

1180  PRINT  "ENTER  VALUES  SEPARATELY  AND  ENTER  9999  WHEN  DONE" 

1190  B=0:C=0:D=1 

1200  INPUT  K(D) 

1210  IF  K(D)=9999  THEN  1240 

1220  B=B+K(D) :C=C+K(D)C2:D=D+1 

1230  GOTO  1200 

1240  PRINT  "SCORES:": FOR  H%=1  TO  D-l 

1250  PRINT  K(H%) ; 

1260  NEXT  H%: PRINT 

1270  PRINT  "SUM  OF  SCORES" , "NUMBER  OF  SCORES" 

1280  PRINT  B,D-1 

1290  PRINT  B/(D-1),C-(B/(D-1))C2 

1300  PRINT  "STANDARD  DEVIATION=" ;SQR(C- (B/ (D-l) ) e2) 

1310  REM  COMPUTE  HYPOTENUSE 

1320  X=SQR(Zlc2+Z2e2) 

1330  GOTO  2200 

1340  REM  COMPUTE  SIDE  OF  TRIANGLE 

1350  X=SQR(ABS(Zle2-Z2c2)) :GOTO  2200 

1360  REM  CONV.  TO  DEGREES 

1370  A(L)=A(L)*57.2957791# 

1380  GOTO  2190 

1390  REM  CONV.  TO  RADIANS 

1400  A(L)=.017453292#*A(L) 

1410  GOTO  2190 

1420  REM  RECT.  TO  POLAR  CONV. 

1430  Z1=SQR(Z1*Z1+Z2*Z2) 

1440  A=Z2/Z1 

1450  Z2=(ATN(A/SQR(-A*A+1)))*57. 29578 

1460  GOTO  2210 

1470  REM  POLAR  TO  RECT.  CONV. 

1480  B=Z1*SIN(Z2*. 0174533) : Z2=Zl*COS (Z2*. 0174533) :Zl=B:GOTO  2210 

1490  A(G)=Z1:PRINT  "M  E  N  U:" 

1500  PRINT  "USE  THE  NEGATIVE  OF  THE  MENU  #  TO  CONVERT  VICE-VERSA) 

1510  PRINT  "1)  FEET  TO  METERS" 

1520  PRINT  "2)  INCHES  TO  CENTIMETERS" 

1530  PRINT  "3)  MILES  TO  KILOMETERS" 

1540  PRINT  "4)  GALLONS  TO  LITERS" 

1550  PRINT  "5)  FARENHEIGHT  TO  CENTIGRADE" 

1560  PRINT  "6)  POUNDS  TO  KILOGRAMS" 

1570  PRINT  "7)  END  CONVERSIONS" 

1580  INPUT  "SELECT:" ,H 

1590  IF  H<0  THEN  GOTO  1610 

1600  ON  H  GOTO  1620,1640,1660,1680,1700,1720,140 
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1610  ON  -H  GOTO  1630,1650,1670,1690,1710,1730 

1620  X=.33047851#*A(G):GOTO  2270 

1630  X=A(G)*3. 281: GOTO  2270 

1640  X=A(G)*2.54:GOTO  2270 

1650  X=A(G)*. 3937: GOTO  2270 

1660  X=A(G)*1.609:GOTO  2270 

1670  X=A(G)*.6215:GOTO  2270 

1680  X=3.7853*A(G):GOTO  2270 

1690  X=.2642*A(G) :GOTO  2270 

1700  X=.5555555*(A(G)-32):GOTO  2270 

1710  X=1.8*A(G)+32:GOTO  2270 

1720  X=.4536*A(G) :GOTO  2270 

1730  X=2.2046*A(G) :GOTO  2270 

1740  REM  COMPUTE  HYPERBOLIC  SINE 

1750  A(L)=(EXP(A(L))-EXP(-A(L)))/2 

1760  GOTO  2190 

1770  REM  COMPUTE  HYPERBOLIC  COSINE 

1780  A(L)=(EXP(A(L))+EXP(-A(L)))/2 

1790  GOTO  2190 

1800  REM  COMPUTE  HYPERBOLIC  TANGENT 

1810  A(L)=-EXP(-A(L))/EXP(A(L))+EXP(-A(L))*2+1 

1820  GOTO  2190 

1830  REM  COMPUTE  HYPERBOLIC  SECANT 

1840  A(L)=2/(EXP(A(L))+EXP(-A(L))) 

1850  GOTO  2190 

1860  REM  COMPUTE  HYPERBOLIC  COSECANT 

1870  A(L)=2/(EXP(A(L))-EXP(-A(L))) 

1880  GOTO  2190 

1890  REM  COMPUTE  HYPERBOLIC  COTANGENT 

1900  A(L)=EXP(-A(L))/(EXP(A(L))-EXP(-A(L)))*2+1 

1910  GOTO  2190 

1920  REM  COMPUTE  INV.  HYPERBOLIC  SINE 

1930  A(L)=LOG(A(L)+SQR(A(L)*A(L)+l)) 

1940  GOTO  2190 

1950  REM  COMPUTE  INV.  HYPERBOLIC  COSINE 

1960  A(L)=LOG(A(L)+SQR(A(L)*A(L)-l)) 

1970  GOTO  2190 

1980  REM  COMPUTE  INV.  HYPERBOLIC  TANGENT 

1990  A(L)=LOG((l+A(L))/(l-A(L)))/2 

2000  GOTO  2190 

2010  REM  COMPUTE  INV.  HYPERBOLIC  SECANT 

2020  A(L)=LOG((SQR(-A(L)*A(L)+l)+l)/A(L)) 

2030  GOTO  2190 

2040  REM  COMPUTE  INV.  HYPERBOLIC  COSECANT 

2050  A(L)=LOG((SGN(A(L))*SQR(A(L)*A(L)+l)+l)/A(L)) 

2060  GOTO  2190 

2070  REM  COMPUTE  INV.  HYPERBOLIC  COTANGENT 

2080  A(L)=LOG((A(L)+l)/(A(L)-l))/2 

2090  GOTO  2190 

2100  B=Z2:Z2=Z1:Z1=B:G0T0  2210 

2110  B=Z4:Z4=Z3:Z2=Z1:Z1=B:G0T0  2210 

2120  B=-Z2*Z2+SQR(Z2*Z2-4*Z3*Z1)/2*Z3 
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2130  Z1=-Z2*Z2-SQR(Z2*Z2-4*Z3*Z1)/2*Z3 

2140  Z2=B 

2150  GOTO  2210 

2160  PRINT  "ENTERING  MONITOR  MODE;  PRESS  <F5>  TO  CONTINUE  PROGRAM" 

2170  STOP 

2180  GOTO  150 

2190  Zl=A(L) :GOTO  2210 

2200  Z4=Z3:Z3=Z2:Z2=Z1:Z1=X 

2210  PRINT  "Z1:";Z1 

2220  PRINT  "Z2:";Z2 

2230  PRINT  "Z3:";Z3 

2240  PRINT  "Z4:";Z4 

2250  PRINT:PRINT 

2260  GOTO  140 

2270  PRINT  "=";X: PRINT: PRINT: GOTO  1490 

2280  DATA  *,+,/,MIN, °, INV,C,SIN, ASIN,COS,ACOS,TAN,ATAN,SEC,ASEC, 

COT,ACOT,CSC,ACSC,PI,E,LOG,MEM+,MEM-,%,N!,SD,HYP,SIDE,DEG,RAD, 

POLR,RECT,MET,HSIN,HCOS,HTAN,HSEC,HCSC,HCOT,#SIN,#COS,#TAN,#SEC, 

#CSC,#COT,SZ,RZ,QUAD,? 


STATISTICS 

The  microcomputer  is  well-suited  for  dealing 
with  statistics.  Basic  statistics  for  one  or  two 
variables— the  mean,  variance,  and  standard  de- 
viation may  be  found  for  a  set  of  observations  on  one 
variable.  For  paired  variable  sets,  the  above  statis- 
tics could  be  determined  for  each,  and  the 
covariance  and  correlation  coefficient  calculated. 


Mean 


x  = 


Variance  cr2 


Xx 


2(deviation  from  true  mean)2 


2(x  -tf 


Standard  deviation  orx  =  V  variance 
SXY  -  nXY 


V  (S^-nX^X^-nY2) 


Means  and  moments.  For  grouped  or  un- 
grouped  data,  the  arithmetic,  geometric,  and  har- 
monic means  may  be  determined;  the  second. 


third,  and  fourth  moments  about  the  mean  and  the 
coefficients  of  skewness  and  kurtosis  may  also  be 
calculated. 

One  and  two  way  analysis  of  variance. 
The  mean  and  variance  for  two  treatment  groups 
and  for  the  entire  sample  may  be  calculated,  and  an 
F  statistic  can  be  applied  to  the  differences  between 
populations. 

Contingency  table  analysis.  The  chi- 
square  statistic  may  be  used  to  test  independence 
between  row  and  column  classifications  of  a  con- 
tingency table. 

Linear  regression.  A  set  of  observations 
may  be  fit  to  a  straight  line  by  linear  regression;  the 
coefficient  of  determination,  the  standard  error  of  y 
on  x,  and  the  standard  error  for  the  coefficients  may 
also  be  computed.  Multiple  linear  regression  fits, 
and  polynomial  regression  could  also  be  performed. 

For  the  linear  equation  y  =  a  +  bx. 


b  = 


2  XY  -  nX  Y 
2X2  -nJ? 


a  = 


Y-  bX 


where  X  =  (2  X)/n,  Y  =  (X  Y)/n 
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Survey  analysis.  The  following  statistical 
parameters  could  be  calculated  by  a  complete  sur- 
vey analysis  program:  multivariate  analysis,  re- 
gression analysis,  time-series  analysis,  variance 
determination,  factor  analysis,  descriptions,  and 
tabulations. 

Generation  of  frequency  tables.  For  a 
large  sample,  a  sorting  program  could  output  a 
standard  or  relative  frequency  table. 

Hypothesis  testing.  A  useful  program  could 
determine  confidence  intervals  for  a  given  sample, 
which  may  then  be  used  in  testing  hypotheses. 
Statistical  hypothesis  testing  is  used  to  answer 
such  questions  as,  "A  businessman  claimed  that 
20%  of  the  public  prefer  his  products;  if  100  people 
were  asked  their  opinion,  what  percentage  would 
have  to  respond  negatively  for  this  claim  to  be 
refutable? 

Statistical  distributions.  The  approximations 
for  normal  and  student's  t-distributions  given  below 
are  designed  for  easy  translation  into  BASIC  pro- 
gram statements  and  have  wide  applications  in 
statistical  analysis. 

•  Normal  Distribution 


/U.  x 

Standard  Normal  Distribution 


(x  -  ,u) 


u  = 


ax 


probability  of  x  falling  in  the  shaded  area  above  = 
1  -  r(ajt  +  a/  +  ^t3)  +  e(x) 

where:  ^  =  0.4361836 

a2  =  -0.1201676 

a3  =  0.9372980 

r  =  (e*  x2/2tt)-V2 

t  =  (1  +  0.3326X)"1 

|  e(x)  |  <  10"5 

•  Student's  t-distribution 


Student's  t-distribution 
area  of  right-tail  =  Vi{l  +  ^x  +  a^x2  +  s^x3  + 


a4x4r4  +  e(x) 


where:  a. 


0.196854 


a2  =  0.115194 

a3  =  0.000344 

a  =  0.019527 

4 


t    =  t-value 

d    ==  no.  degrees  of  freedom 

x    =  (F3-  (1  -  2/9d)  -  7/9)(2/9  in   + 


f 


2/9d)- 


e(x)  I  <  2.5  •  10~4 


Similar  approximations,  available  in  statistical 
handbooks  and  the  U.S.  Bureau  of  Standards  manu- 
als of  computer  approximations,  may  be  used  to 
compute  Chi-Square  and  F  distributions. 

Statistical  Analysis 

The  statistical  analysis  program  in  Listing  3-2 
has  a  wide  range  of  applications  in  business,  stock 
analysis,  and  the  sciences.  The  program  consists  of 
six  subprograms  including  statistics  with  one  vari- 
able, statistics  with  two  variables,  area  under  a 
curve  computation,  and  exponential  smoothing  cal- 
culations. 

The  first  subprogram,  statistics  with  one  vari- 
able, is  used  to  find  basic  descriptions  for  a  set  of 
data  (that  is  the  mean  and  the  standard  deviation). 
The  second  subprogram  determines  the  linear  re- 
gression for  a  set  of  (x,y)  pairs.  For  example,  the 
relationship  between  the  price  of  a  stock  (x)  to  the 
Dow  Jones  Industrial  Average  (y)  could  be  deter- 
mined by  inputting  corresponding  pairs  of  values. 
The  third  subprogram  computes  the  area  under  a 
normal  curve  between  two  points.  A  normal  curve 
is  used  to  describe  many  phenomena;  it  is  pictured 
and  mathematically  described  above.  The  area 
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under  the  curve  is  equal  to  one;  the  average  of  a  set 
of  data  (x)  is  the  point  at  which  the  curve  peaks.  If 
two  values  on  the  x  axis  are  picked,  the  area  under 
the  curve  between  these  two  points  is  equal  to  the 
probability  of  a  value  being  between  those  points; 
this  subprogram  computes  the  area,  or  probability, 
between  two  given  points.  The  fourth  subprogram 
computes  the  cumulative  binomial  probability  for 
the  occurrence  of  a  given  value.  The  fifth  subpro- 


gram plots  data  described  in  subprogram  one  in 
simple  bargraph  format.  This  section  could  be  im- 
proved to  plot  data  on  an  x,  y  axis  or  to  create  a 
labeled  histogram.  The  sixth  subprogram  expo- 
nentially smooths  a  set  of  data.  Data  values  are 
entered,  and  an  exponential  function  is  used  to 
predict  future  values.  This  smoothing  constant 
should  be  adjusted  so  that  the  output  error  is 
minimized. 


Listing  3-2:  The  Statistical  Analysis  Program 


10 

20 

25 

30 

40 

50 

60 

62 

64 

66 

68 

69 

70 

80 

90 

100 

120 

130 

140 

150 

160 

170 

180 

500 

505 

510 

520 

525 

540 

550 

551 

560 

562 

580 

590 

600 

610 

615 


2000 

FOR  1  VARIABLE" 

FOR  2  VARIABLES" 

A  CURVE  COMPUTATION 

BINOMIAL  PROBABILITY 


CALCULATION" 


REM  STATISTICAL  ANALYSIS  PROGRAM 
REM  FOR  BUSINESS  AND  STOCK  ANALYSIS 
DIM  X<105> ,A<105) „Y(105) 
PRINT  "MENU:  ".'CLEAR 
PRINT"1)STATISTICS 
PR I NT "2) STATISTICS 
PRINT"3)AREA  UNDER- 
PRINT  " 4 ) CUMUL AT I VE 
PRINT"5)PL0T  DATA" 

PRINT"6) EXPONENTIAL  SMOOTHING  PROGRAM" 
INPUT  A:  ON  A  GOTO  70, 1400, 900, 4000, 5000, 6000 
GOTO  30 

REM  ONE  VARIABLE  CALCULATIONS 
PR  I  NT  "ENTER  SUCCESSIVE  VALUES  SEPARATELY,  '9999:' 

D=i:  c=o:B=o:  E=o 

INPUT  A(D) 

GOTO  150 

INPUT  A(D) 

IF  A (D) =9999  THEN  500 

B=B+A(D) 

C=C+A(D)*A(D) 

D=D+1 

GOTO  130 

d=d-i:m=b/d 

cls  'clear  screen 

pr i nt "no.  scores", "sum  of  scores" 

PRINT  D,B 

PRINT 

FOR  H=l  TO  D 

G=G+A<H)-M 

SG=SG+  (A  (H)  -M)  *  (A  (H)  -M) 

NEXT  H 

SG=SG/<D-1> 

PR I NT "MEAN" 

PRINT 

PRINT 


TO  END' 


"STD.  DEV.","MEAN  AVE.  DEV. 


PRINT 
PRINT 


SG=SQR(SG) 

"VARIANCE". 
M,SG*SG,SG,G 

PR I NT "PROBABLE  ERROR" , "COEFFICIENT  OF  VARIATION" 
.6745*SG,D/M 
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620  PR I NT "STANDARD  ERROR  FOR  THE  MEAN=" ; SQR <SG*SG/D) 

625  PRINT 

670  FOR  1=1  TO  D-l 

672  FOR  J  =  l  TO  D-l 

674  X=A(J) :Y=A(J+1) 

684  IF  A(JX=A(J+1)  THEN  688 

686  A(J)=Y:A(J+1)=X 

688  NEXT  J, I 

689  INPUT "TYPE  ENTER  TO  CONTINUE"; A*:  CLS 

690  PRINT"#     MEASURE   FREQ   REL  FREQ   DEV  FROM  AVE   DEV  SQUARED 
STD  DEV" 

754  J9=0 

755  FOR  J8=l  TO  D 
760  H=l 

770  FR=1 

790  J=l 

BOO  IF  A(J8)=A(J8+J)  THEN  FR=FR+1  ELSE  830 

810  J=J+1 

820  GOTO  800 

830  J9=J9+1 

840  A2*= "######.###  ######   .#####   ####.####   #######.####### 

#.#####" 

850  PRINT  USINB  A2*5 J9; A (J8) ; FR; FR*1/D;M-A ( J8) 5 <M-A ( J8> > * (M-A ( J8> ) 

5 <A<J8)-M)/SG 

860   IF  FR>1  THEN  J8=J8+FR-1 

862  RM=RM+FR*A ( J8 ) *A ( J8 ) 

863  NEXT  J8 

864  PRINT"HIBHEST  SCORE" , "LOWEST  SCORE" 

865  PRINT  A(D) ,A(1) 

866  PR I NT "ROOT  MEAN  SQUARE=" ; SQR (RM) 

870  PRINT"THUS  X=";M?"  PLUS/MINUS" ; SG/SQR (D) 

880  INPUT "TYPE  ENTER  TO  CONTINUE" ; A*: SOTO  30 

900  REM  AREA  UNDER  NORMAL  CURVE 

910  PR I NT "ENTER  THE  STANDARD  Z  VALUE"; BE 

920  INPUT  BE 

930  PRINT 

940  PRINT"X  VALUE       AREA  TO  LEFT       AREA  TO  RIGHT" 

950  A=BE 

970  C=0."  E=l :  H=BE:  D=0."  G=BE*BE:  F=.  398942*EXP  <-.  5*S) 

1030  J=H/E 

1040  C=C+J:  IF  J /C<. 000001  THEN  1120 

1052  L=l:E=l:D=D+l:H=G*H 

1060  FOR  K=l  TO  D 

1070  E=E+2:L=L*E 

1080  NEXT  K 

uoo  e=l:  goto  1030 

1120  M=F*C+.5:N=1-M 

1130  PRINTA,M,N 

1140  GOTO  1370 

1 160  BE=BE/1 . 14142: 0=BE*BE: P=EXP (-0) *. 56419/BE:  0=.  5*0 

1200  pi =o*o: m=o*p: P2=o: P3=o 

1240  P5=1."P4=1 
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1260  P2=P2+2 

1270  IF  P33=P  THEN  1320  ELSE  P3=P 

1280  P=P5:P4=0*P4*(P2-1)+P5:M=P2*M*P1*<P2+1) 

1310  B0T0  1260 

1 320  P6=P* . 5 : Q= 1 -P6 

1330  PRINT  A„Q,P6 

1350  BE=A+10 

1360  GOTO  950 

1370  PRINT 

1380  BOTQ  30 

1400  D=l:PRINT"RESRESSION  AND  CORRELATION  ANALYSIS" : PRINT 

1410  PR I NT "ENTER  X,Y  VALUES  AS  PAIRS  SEPARATED  BY  COMMAS" 

1415  PR I NT "TYPE  9999,9999  WHEN  DONE" 

1420  INPUT  X(D) ,Y(D) 

1430  IF  X(D) =9999  AND  Y(D)=9999  THEN  1510 

1440  Q9=Q9+X(D)."R9=R9+Y<D) 

1450  Q8=Q8+X  (D)  *X  <D)  ."  R8=R8+Y  (D)  *Y  <D) 

1480  R6=R6+X(D)*Y(D> :D=D+1 

1500  BOTO  1420 

1510  d=d-i:n=d:Q7=Q9/d:r7=R9/d 

1540  a9=q8-q9*q7:a8=r8--r9*r7 

1560  b9=r6-q9*r7:bb=b9/a9:b7=r7-b8*q7 

1590  A7=A8-B8*B9:A6=A7/(D-2) 

1610  FOR  1=1  TO  N 

1620  B(I)=Y(I):A(I)=X(I) 

1640  NEXT  I 

1650  SOSUB  3000 

1660  PRINT 

1670  PRINT"AVE.  OF  X'V'AVE.  OF  Y" 

1680  PRINT  A1,A2 

1690  PRINT"STD.  DEV  X","STD  DEV  Y" 

1700  PRINT  D1,D2 

1710  PR I NT "CORRELATION  COEFFICIENT  X-Y  :";C9 

1720  PRINT."  A9=A2 

1730  INPUT"TYPE  ENTER  WHEN  READY" 5 Z9 

1740  PRINT"THE  FOLLOWINB  EQUATIONS  EXPRESS  THE  X,Y  RELATIONSHIPS" 

1750  PR I NT: PR I NT "EQUATION  1" 

1770  PRINT"Y=";S9; "X  +";I9 

1780  PRINT""/.  ACCURACY  OF  Y  VARIANCE  DESCRIPTION^'.!  P9 

1 782  PR I NT " Y- I NTERCEPT  =  "  ;  1 9 

1784  PR I NT "SLOPE        =";S9 

1785  PRINT"F-RATIO     ="  ',  S9/  (A6/  (D-2)  ) 
1790  PRINT 

1800  FOR  1=1  TO  D 

1810  IF  X(I)<=0  THEN  1890 

1820  A(I)=L06(X(I) ) 

1830  NEXT  I 

1840  BOSUB  3000 

1850  PRINT: PR I NT "EQUATION  2" 

1860  PRINT"Y=  "5S9;"*LOB  X  +";.I9 

1870  PRINT""/.  ACCURACY  OF  DESCRIPTION"  5  P9:  PRINT 

1890  FOR  1=1  TO  N 
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1900  A(I)=X(I):  IF  Y(I)<=0  THEN  2010 
1920  B(I)=L0G(Y(I) ) 
1930  NEXT  I 
1940  SOSUB  3000 
1950  GOSUB  3500 

1954  PRINT 

1955  INPUT"TYPE  ENTER  WHEN  READY"; Z9 
1960  PR I NT "EQUATION  3" 

1970  PRINT"LOG  Y=";S9;"*X  +";I9:PRINT"   OR" 

1990  PRINT"Y=  ","EXP(S9)  5  "CX  +";EXP<I9> 

2000  PRINT"'  ACCURACY  OF  DESCRIPTION" 5 P9 

2010  FOR  1=1  TO  N 

2020  IF  A ( I )< =0  THEN  3600ELSE  A ( I ) =LOG ( X ( I ) ) 

2030  NEXT  I 

2040  GOSUB  3000 

2050  GOSUB  3500 

2060  PR I NT "EQUATION  4" 

2070  PRINT"LOG  Y=";S9;"*L0G  X  +","19:  PRINT"    OR" 

2080  PRINT"Y="5EXP(I9) 5 "*XC"5S9 

2090  PRINT""/.  ACCURACY  DESCRIPTION"  ',  P9 

2100  GOTO  3600 

3000  si=o:s2=o:S3==o:s4=o:S5=o:  for  i=i  to  n 

3010  S1=S1+A(I> :S2=S2+B(I) : S3=S3+A < I ) *A ( I > 

3040  S4=S4+B < I ) *B  < I > : S5=S5+A ( I ) *B ( I ) 

3050  NEXT  I 

3070  A1=S1/N:A2=S2/N:V1=(S3-(D*<A1*A1) ) )/<N-l) 

3110  V2=<S4-(D*(A2*A2) ) >/<N~l> :  D1=SQR<V1) 

3120  D2=SQR<ABS<V2) ) : D0=N*S3-S1*S1 : 19= ( <S2*S3) - <S1*S5> ) /DO 

3130  S9=( (N*S5)-(S1*S2) )/D0:P9=( (S9*S9) *V1 ) /V2: C9=SQR (P9) 

3140  P9=100*P9: RETURN 

3500  S7=0:S8=0 

3520  FOR  1=1  TO  N 

3530  E=EXP(I9+S9*A<I)):S8=SS+(Y(I)-E) C2: S7=S7+ (Y ( I ) -A9) C2 

3560  NEXT  I 

3570  P9=100*(l-S8/S7) : RETURN 

3600  INPUT "TYPE  ENTER  WHEN  READY" ;Z9 

3740  GOTO  30 

4000  REM  CUMULATIVE  BINOMIAL  PROBABILITIES 

4010  F=0 

4020  INPUT "ENTER  THE  #  SUCCESSES, #  TRIALS  (F (Yj N, P) ) , PROB  SUCCESS 

/TRIAL"5Y,N,P 

4030  Sl=l:  FOR  1=1  TO  N 

4040  S1=S1*I:NEXT  I 

4050  FOR  X=0  TO  Y 

4060  S2=l:S3=l 

4070  FOR  1=1  TO  X 

4080  S2=S2*I:NEXT  I 

4090  FOR  1=1  TO  N-X 

4100  S3=S3*I:NEXT  I 

4110  F=F+S1/(S2*S3)*PCX#(1-P)C (N-X) 

4120  NEXT  X 

4130  PR I NT "THE  CUMULATIVE  BINOMIAL  PROBABILITY  =";F 
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4140 

PRINT"F0R  F(Y5N, ,P)  WHERE  Y=" 5 Y;"N=" 5 N? "P="; P 

4150 

GOTO  30 

5000 

CLS  'CLEAR  SCREEN 

5005 

__  ii 

5015 

DX=55/A<D) 

5020 

FOR  X=D  TO  1  STEP  -1 

5025 

IF  A(X)=A(X-1)  THEN  NEXT  X:  SOTO  5200 

5030 

A*=  "####„##":  PRINT  USING  A*;  A  (X)  ;  ."PRINT"  I"; 

5040 

PRINT  STRING*(DX*A<X>, "+") 

5050 
5060 

NEXT  X 

_      II 

5070 

GOTO  30 

6000 

REM  EXPONENTIAL  SMOOTHING 

6010 

DIM  Y(100,2) ,  S<3,2) 

6020 

GOSUB  6500 

6040 

GOSUB  7000 

6050 

GOSUB  8000 

6060 

GOTO  30 

6500 

INPUT"ENTER  SMOOTHING  CONSTANT  (0-1)  ","A 

6510 

INPUT "ENTER  PREDICTION  PERIOD  LENGTH" 5 T 

6520 

INPUT "ENTER  THE  FIRST  DATA  SET" 5 Y ( 1 , 1 ) : Y (2, 2) =Y ( 1 , 1 ) 

6530 

S(l,0)=Y(l,l):S(2,0)=Y(l,l):S(3,0)=Y(i,l) :n=2: RETURN 

7000 

»              . 

7001 

PRINT  NS : INPUT  Y(N, 1) 

7003 

IF  Y(N,1>=9999  GOTO  7200 

7030 

S<1, 1)=A*Y(N, 1>  +  <1-A)*S<1,0) :S(2, 1 ) = ( 1~A) *S (2, 0) +S ( 1 , 1 ) *A 

7050 

S(3, 1)=(1-A)*S(3,0)+S(2, l)*A:Pl=6*(l-A)*(l-A)+(6-5*A)*A*T+( 

A*T)*(A*T> 

7070 

P2=S<1, 1)/(2*<1-A)*(1-A) ) :P3=6*(l-A)*(l-A)+2*(5-4*A)*A*T+2*< 

A*T)*(A*T) 

7090 

P4=S(2, 1)/(2*(1-A)*(1-A) ) 

7100 

P5=2*(l-A) C2+(4-3*A)*A*T+(A*T) C2:P6=S(3, 1 ) / (2* < 1-A) * ( 1-A) ) 

7110 

Y(N+1,2)=P1*P2-P3*P4+P5*P6:S(1,0)=S<1, 1) :S(2,0)=S(2, 1) 

7120 

S(3,0)=S(3,l):N=N+l:  GOTO  7001 

7200 

RETURN 

8000 

PRINT: PRINT"     PERIOD     OBSERVATION     PREDICTION     ERROR" 

8001 

A*="     ###            ####.###        ###.###       ##.##" 

8010 

PRINT  USING  A*;l;Y(l,l) 

8020 

FOR  J=2  TO  N-l 

8030 

PRINT  USING  A*;J;Y(J,1)JY<J,2) SY(J,2)-Y(J,1) 

8040 

IF  J/12  <>INT(J/12)  THEN  8100 

8050 

PRINT: INPUT "TYPE  ENTER  TO  CONTINUE"; A* 

8060 

CLS:  PRINT"     PERIOD     OBSERVATION     PREDICTION     ERROR- 

8100 

NEXT  J 

8110 

GOTO  30 

MATHEMATICS 

Personal  computers  can  be  called  upon  to  per- 
form all  of  the  following: 


Solution  of  quadratic  and  cubic  equations:  given 
the  coefficients  of  either  a  quadratic  or  cubic 
equation,  a  program  could  solve  for  both  real  and 
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complex  roots;  equations  of  degrees  could  also 
be  solved  for. 

•  Roots  of  f(x):  a  program  could  find  the  roots  of  a 
user-defined  function  using  the  bisection  method 
or  Newton's  method. 

•  Vector  operations:  given  two  vectors  in  two  di- 
mensions, a  program  could  calculate  their  mag- 
nitudes, the  angle  between  them,  and  their  dot 
and  cross  products. 

The  program  in  Listing  3-3  calculates  the  sum 
of  two  vectors. 

•  Triangle  solution:  for  a  triangle  with  three  known 
"variables,"  the  lengths  of  the  sides,  the  angles 
between  sides,  and  the  area  could  be  computed. 

•  Curve  solution:  the  arc  length,  central  angle, 
radius,  chord  length,  and  tangent  length  for  a 
curve  could  be  calculated  given  two  known  parts; 
the  area  enclosed  by  these  parts  could  also  be 
calculated. 

•  Arithmetic,  geometric,  and  harmonic  progres- 
sions: a  table  of  elements  for  the  above  three 
progressions  could  be  generated.  The  element 
and  the  sum  of  the  first  n  elements  could  also  be 
determined. 

•  Factors  of  integers,  GCD,  LCM:  the  prime  fac- 
tors of  an  integer,  the  greatest  common  divisor 


(GCD),  and  the  least  common  multiple  (LCM)  of 
two  integers  could  be  determined. 
Function  value  table:  a  useful  program  could  print 
the  values  for  a  user-defined  function  over  a 
specified  interval. 

Prime  number  table:  a  table  of  prime  numbers  or 
a  test  for  primes  in  a  specified  interval  could  be 
generated. 

Partial  sums  and  products:  the  partial  sum  or 
product  of  a  user-defined  function  could  be  com- 
puted. 

Interpolation  between  known  values:  Lagrange 
polynomial  interpolation,  or  the  Newton  divided 
difference  method  may  be  performed  to  interpo- 
late values  of  a  function. 
Gaussian  integration:  the  integral  of  a  user- 
defined  function  can  be  determined  by  Gaussian 
quadrature. 

Solutions  of  differential  equations:  first-order 
differential  equations  may  be  solved  by  a  program 
using  the  Runge  Kutta  method;  a  step  size  may 
be  determined  to  yield  results  within  a  specific 
error  tolerance. 

Polynomial  arithmetic:  addition,  subtraction, 
multiplication,  and  division  of  polynomials  may 
be  accomplished. 


Listing  3-3:  The  Vector  Addition  Program 

10  REM  VECTOR  ADDITION 

20  INPUT "INPUT  THE  DATA  FOR  THE  FIRST  VECTOR  IN  THIS  FORM: 

MAGNITUDE,  ANGLE"; Ml, Al 

30  X1=M1*C0S<A1) 

40  Y1=M1*SIN(A1) 

50  INPUT  "INPUT  THE  DATA  FOR  THE  SECOND  VECTOR  IN  THE  SAME 

FORMAT. ";M2,A2 

60  X2=M2*C0S(A2> 

70  Y2=M2*SIN<A2) 

80  X=X1  +  X2:  Y=Y1  +  Y2 

90  A=ATN  (Y/X) 

100  M=SQR  <X*X+Y*Y) 


110 

PRINT 

120 

PRINT 

130 

PRINT 

140 

PRINT 

150 

END 

"NEW  VECTOR  MAGNITUDE  =" 5 M; "UNITS. " 
"AT  AN  ANGLE  OF  ";A5"  DEGREES." 
"(X,Y)  COORDINATE  AT  ENDPOINT  =<"SX; 


";y; ") 
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•  Polynomial  evaluation:  a  polynomial  (P  )=aQ  + 
a:x  +  a2  x2  +  .  .  .  +  a  x"  may  be  evaluated  at  a 
point  x  with  complex  coefficients.  The  program 


in  Listing  3-4  evaluates  a  polynomial  expression 
at  a  given  point  and  determines  the  first  and 
second  deviatives. 


Listing  3-4:  The  Polynomial  Evaluation  Program 

100 

REM  POLYNOMIAL  EVALUATION  PROGRAM 

110 

REM  COMPUTES  VALUE  AT  A  BIVEN  PT.  &  1ST  S<  2ND  DERIVATIVES 

120 

DIM  B(50),  Z(509),  C(50,2) 

130 

LET  E=0 

140 

PRINT  "EMTER  THE  DEGREE  OF  THE  POLYNOMIAL"; 

150 

INPUT  X 

160 

PRINT  "ENTER  THE  COEFFICIENTS  SEPARARELY"; 

170 

FOR  D=0  TO  X 

180 

INPUT  B(D> 

190 

NEXT  D 

200 

PRINT  "ENTER  THE  NO.  OF  VALUES  TO  BE  EVALUATED"; 

210 

INPUT  N."N1=N 

220 

PRINT  "ENTER  THE  POINTS  SEPARARELY"; 

230 

FOR  D=l  TO  N 

240 

INPUT  Z<D) 

250 

NEXT  D 

260 

GOSUB  00340 

270 

GOSUB  00450 

280 

E=E+1 

290 

GOSUB  00340 

300 

GOSUB  00450 

310 

E=E+1 

320 

GOSUB  00340 

330 

GOTO  00500 

340 

FOR  F=l  TO  Nl 

350 

N=Z(F) 

360 

GOSUB  00400 

370 

C(F,E)=H 

380 

NEXT  F 

390 

RETURN 

400 

H=0 

410 

FOR  D-0  TO  X 

420 

H=B  (D)  +N*H 

430 

NEXT  D 

440 

RETURN 

450 

FOR  D=0  TO  X 

460 

B(D)  =  <X-D)*B(D) 

470 

NEXT  D 

480 

X=X-1 

490 

RETURN 

500 

PRINT 

510 

PR I NT " PO I NT  OF  E VAL . " , " E VAL . " , " E V AL . " , " DER 1 " ,  " DER2 " 

520 

PRINT 

530 

FOR  F=l  TO  Nl 
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540  PRINT  Z(F) 
550  NEXT  F 
560  PRINT 
570  END 


C(F,0),    C(F,1),    C(F,2) 


Polynomial  root  finding:  Barstow's  method  is 
well  suited  for  computer  evaluation  of  quadric 
factors  for  polynomials  of  degree  n. 
Complex  arithmetic:  addition,  subtraction,  mul- 
tiplication, division,  squares,  inverses,  and  so  on 
may  be  performed  using  complex  numbers. 
Complex  trigonometric  functions:  common 
trigonometric  functions  may  be  evaluated  using 
complex  numbers. 

Base  conversions:  a  useful  program  could  trans- 
form numbers  of  any  real  base  to  another  base. 
Graphing  calculations:  the  intervals  to  use  for 
proportional  axes  given  the  minimum/maximum 
values  and  number  of  major  divisions  could  be 
calculated  and  used  for  plotting  data  manually  or 
with  a  plotter/printer.  Additionally,  conversion 
routines  between  radians,  quadrants,  revolu- 
tions, and  degrees  could  be  provided. 
Coordinate  conversion  between  rectangular  and 
polar  equivalents  may  be  computed  with  these 
formulae: 


r   =  Vr+f 

A  =  arctangent  (y/x) 


x    =  r  •  cosine  (A) 
y    =  r  •  sine  (A) 


=  abscissa" 
=  ordinate 


>} 


Cartesian  coordinates 


where:   x 

y 

r    =  magnitude  of  rayl  D  ,  ,.     . 

_        i   /•   j  \V  Polar  coordinates 


A  = 


angle  (in  degrees)/ 


The  Solution  of  Simultaneous  Equation 

The  small  computer  can  be  used  to  find  the 
solution  to  a  set  of  simultaneous  equations.  This 
mathematical  operation  has  applications  in  many 
areas  including  business  and  science.  An  example 
of  two  equations  to  be  solved  simultaneously  fol- 
lows: 

5X=4Y  +  24 
2.5Y=6X-4 

If  the  equations  are  solved  simultaneously,  a  value 
will  be  found  for  X  and  Y  such  that  both  equations 
will  be  correct.  The  number  of  simultaneous  equa- 
tions that  can  be  solved  by  the  program  in  Listing 
3-5  is  limited  only  by  the  available  memory  in  the 
computer. 


Listing  3-5:  The  Simultaneous  Equation  Solver  Program 

100  REM  SIMULTANEOUS  EQUATION  SOLVER 

110  REM  NO.  OF  VARIABLES=NO.  OF  EQNS. 

130  REM  THE  ARRAYS  MAY  BE  RED I MENTIONED  TO 

140  REM  ACCOMODATE  ANY  NO.  OF  EQUATIONS 

150  REM  LIMITED  ONLY  BY  AVAILABLE  MEMORY 

160  DIM  A (30, 30) , X(30) ,B(30) 

170  INPUT "ENTER  NO.  OF  VARIABLES" ; N 

180  F0RI=1T0N:F0R  J=l  TO  N 

190  PRINT"EQUATION  #";I5",  VARIABLE  #"iJ; 

200  INPUT  A (I, J) 

210  NEXT  J. "PR  INT  "CONST  ANT  FOR  EQN  #";I," 

220  INPUT  B(I) :NEXT  I 

230  F0RI=1T0N-1 

240  B=ABS(A(I, I) ) :L=I 

250  F0RJ=I+1T0N 
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260  I FABS ( A  <  J , I > )<  B  THEN  280 

270  L=J."B=ABS(A(J,  I)  ) 

280  NEXT  J 

290  IFB=0THEN550 

300  IFL=I  THEN  390 

310  F0RJ=1T0N 

320  8=A(L,J) 

330  A(L, J)=A(I, J) 

340  A (I, J) =8 

350  NEXT  J 

360  R=B(L) 

370  B(L)=B(I) 

380  B(I)=R 

390  F0RJ=I+1T0N 

400  T=A(J,  I) /Ad,  I) 

410  F0RK=I+1T0N 

420  A(J,K)=A(J,K)-T*A(I,K) 

430  NEXT  K 

440  B(J)=B(J)-T*B<I) 

450  NEXT  J 

460  NEXT  I 

470  IF  A(N,N)=0THEN550 

480  I=N-l:X(N)=B(N)/A(N,N) 

490  S=0:F0RJ=I+1T0N 

500  S=S+A<I, J)#X(J> 

510  NEXT  J 

520  X(I)=(B(I)-S)/A(I,I) 

530  I  =  I  - 1 :  I F I >0THEN490 

540  B0T0570 

550  PRINT: PRINT"EQNS  ARE  UNSOLVABLE" 

560  80T0610 

570  PRINT: PRINT 

580  FOR 1=1 TON 

590  PR  I  NT  "VARIABLE  #";l-;"  ="SX<I) 

600  NEXT  I: PRINT 

610  INPUT"TRY  A8AIN  (1=YES,  2=N0)";Z 

620  PRINT: PRINT 

630  IF  Z=l  THEN  PR I NT: SOTO  170  CVDLOCTRESET 


Integral  Evaluation  The  trapezoidal  approximation  is  another  al- 

Among  the  many  methods  used  for  computer    gorithm  used  with  computers, 
evaluation  of  integrals  is  Simpson's  Rule: 

fb  f(x)dx  ^  h/3[f(a)+4f(a+h)+2f(a+2h)+4f         plotting  Mathematical  Functions 

Ja  (a+3h)+ .  .  .  +2f(a+(n-2)h)+4f  With  a  little  ingenuity,  the  TAB  function  may 

(a+(n-l)h)+f(b)]  be  used  to  produce  crude  plots  of  trigonometric  and 

other  functions.  Try  this  "one-liner" 

where  h  =  *=±  and  n  =  number  of  iterations  1Q     p()R  X=Q  TQ  ^  ST£p   25:pRINT 

(as  n  increases,  accuracy  increases)  TAB  (SIN(X)*30+30);"*":NEXT  X 
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The  plotter  program.  The  program  in  List- 
ing 3-6  is  a  general  purpose  plotting  routine  de- 
signed for  use  with  a  printer.  Three  types  of  plots 
may  be  made:  two-dimensional,  three-dimensional, 
and  simultaneous  plots.  Lines  40-80  explain  how 
functions  to  be  plotted  are  to  be  entered  into  the 
program. 


Determining  the  Equation  of  a  Line 

The  program  in  Listing  3-7  accepts  (x,y)  data 
points  and  uses  linear  regression  to  determine  the 
equation  of  the  line  that  best  fits  (describes)  the 
data.  Applications  are  numerous.  For  instance,  if 
you  were  on  a  weight-loss  plan  and  inputted  values 
for  your  weight  versus  amount  of  exercise  or 


Listing  3-6:  The  Plotter  Program 

10  REM  PLOTTER 

20  REM  PLOT  FUNCTIONS  IN  2D,  3D,  OR  SIMULTANEOUSLY 

30  REM  ROTATE  OUTPUT  90  DEGREES  FOR  ACTUAL  PLOT 

40  PR I NT "IF  THE  FUNCTIONS  DEFINED  IN  LINES  1000,2000,3000  ARE  TO" 

50  PR I NT "BE  CHANBED,  STOP  THE  PROBRAM  AND  ENTER  FUNCTIONS  IN  THIS 

FORMAT: " 

60  PRINT"FUNCT.  #1-  1000  Y=SIN(X)  (Y  IN  TERMS  OF  X)  " 

70  PRINT"FUNCT„  #2-  2000  Y1=C0S(X)  (Yl  IN  TERMS  OF  X)" 

80  PRINT"FUNCT.  #3-  3000  Z=EXP(Z)  <Z  IN  TERMS  OF  Z-  FOR  3D  PLOTS)" 

90  PRINT 

100 

PRINT 

110 

PRINT 

120 

INPUT "SELECT  1 ) 2D  PLOT,  2)  3D  PLOT,  3) END" 5  A 

140 

ON  A  BOTO  160,520,150 

150 

END 

160 

INPUT"SELECT:  DPLOT  1  FUNCTION,  2>PLaT  2  FUNCTIONS  SIMUL.'S'A 

180 

IF  A=2  THEN  Fl=2  ELSE  Fl=l 

190 

INPUT "ENTER  X  M IN, MAX, INCREMENT" ;E,F, D 

210 

INPUT"ENTER  Y  MIN,MAX"SH,B 

230 

YI=56/(G-H) 

240 

PRINT"Y  MIN:"5H;"  Y  MAX:"5G;"  INC:"SYI 

250 

PRINT 

260 

PRINTTAB  (5)  j  H;  TAB  (56)  ,"  B 

270 

F0RB=1  TO  58 

280 

PRINT"+"5 

290 

NEXT  B 

300 

PRINT 

310 

A*= "####.#" 

320 

FORX=ETOFSTEPD 

325 

GOSUB  1000 

330 

PRINTUSINSA*;X5 : PRINT": "5 

340 

IFF1=1THEN380 

350 

G0SUB2000 

360 

IFY>Y1THENPRINTTAB(YI*Y1) j "*" ; TAB <Y*YI ) ; "#"ELSEPRINTTAB <Y*YI ) 

;  "#' 

;TAB(Yl*Yi) 5 "*" 

370 

G0T0390 

380 

PRINTTAB <Y*Y I) ? "*" 

390 

NEXT  X 

400 

G0T0120 

520 

A*="#" 
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530  E=5 

540  V=25 

550  B=.7071 

560  C=961 

570  PR I NT "ENTER  X  INCREMENT" 

580  INPUT IN 

590  F0RX=-31T031STEPIN 

600  A=0 

610  B=l 

620  D1=E*INT(SQR(C-X*X)/E> 

630  F0RY=D1T0-D1STEP-E 

640  Z=SQR(X*X+Y*Y> 

650  S0SUB3000 

660  Z=INT<V+Z-G*Y) 

680  I FA*= " * " THENA*= " + " ELSEA*= " * " 

690  IFZ<=ATHENB0T0730ELSEA=Z 

695  IF  B  IF  Z=FTHENIFA*="*"THENA*="+"ELSEA*="*' 

700  LPRINTTAB(Z)A*; 

710  IFBLETF=Z 

720  B=0 

730  NEXTY 

740  LPRINT 

750  NEXT  X 

770  GOTO 120 

1000  Y=ABS<SIN(X) ) 

1010  RETURN 

2000  Y1=ABS(C0S<X) ) 

2010  RETURN 

3000  Z=SQR (961 . 01-Z*Z ) *. 9-2: RETURN 


calorie  intake,  the  program  could  find  the  equation 
of  a  line  that  best  fits  this  data.  Thus,  you  could 
input  a  value  for  one  variable  (for  example,  calorie 
intake)  and  receive  a  corresponding  value  (for 
example,  weight)  for  the  other  variable.  Other 


areas  that  could  be  analyzed  include  stock  price 
versus  Dow  Index,  miles  traveled  versus  gallons 
used,  distance  versus  time,  and  heating  costs  ver- 
sus outside  temperature.  This  program  uses  the 
least  squares  method  of  linear  regression. 


Listing  3-7:  The  Line  Equation  Calculator  Program 

1 

REM  LINE  EQUATION  CALCULATOR 

2 

REM  MAY 

BE  USED  TO  DESCRIBE  A  SET  OF  DATA 

3 

REM  AND 

DETERMINE  A  CORRESPONDING  POINT 

FOR 

4 

REM  ANY 

ENTERED  POINT 

5 

CLS  'CLEAR  SCREEN 

10 

INPUT 

"ENTER  A  NAME  FOR 

THE  FIRST  SET 

OF  DATA"; 

A* 

20 

INPUT 

"ENTER  A  NAME  FOR 

THE  SECOND  SET 

OF  DATA" 

5  B* 

72 

PRINT 

"ENTER  X,  Y  PAIRS 

SUCCESSIVELY, 

SEPARATED 

BY  COMMAS" 

75 

PRINT 

"ENTER  0,0  TO  END" 

76 

N=l 

80 

INPUT 

X,  Y 

90 

IF  <X= 

0)  AND  (Y=0>  THEN 

200 

99 


110 
120 
130 
140 
150 
160 
170 
ISO 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
350 
390 
400 
419 
429 
439 
449 
460 
470 
480 
490 


"SET  NO.: ";N 


N=N+1 

PRINT 

A=A+X 

B=B+X*X 

C=C+Y*Y 

D=D+Y 

E=E+X*Y 

60T0  80 

IM=IM  -l:M=(E*N-D*A)/(B*N-A*A) 

V=  <D*B-E*A) / <B*N-A*A> 

CLS 

PRINT  "Y="5  M;  "X+"5V 

PRINT  "ENTER  A  VALUE  FOR  ";  A* 5 

PRINT  "VALUE  FOR  " ;  B* 

INPUT  "ENTER  9999  IF  YOU  WANT 

IF  A=9999  THEN  GOTO  350 

PRINT 

PRINT  "Y="5  M*A+V 

B0T0240 

REM 

CLS' CLEAR  SCREEN 

PRINTrPRINT  "X="5  -1/M,"  "*Y  •+ 

PRINT  "ENTER  A  VALUE  FOR  "5  B*?  " 

PRINT  "VALUE  FOR  " 5  A* 

PRINT  "ENTER  9999  FOR  VICE- VERSA" 

INPUT  A 

IF  A=9999  THEN  350 

PRINT  "THE  VALUE  FOR  X="5  (A-V) /M 

PRINT 

BOTO  419 


TO  RECEIVE  A  CORRESPOND INS" 


vice-versa";a 


V/M 

"  TO  RECEIVE 


A  CORRESPONDING" 


Solving  for  Corresponding  Values 

Given  two  points  of  a  line  linear  interpolation 
can  be  used  to  solve  for  y  values  corresponding  to  a 
given  x  value.  Although  this  method  is  not  as  accu- 
rate as  the  least  squares  linear  regression  method, 
it  can  be  used  in  situations  in  which  the  correlation 
coefficient  is  high. 


yi  + 


(yjs-VjMx  -  Xj) 


where:     x^Vj  =  coordinates  of  first  point  on  the 
line 
x2,y2  =  coordinates  of  second  point  on 
the  line 
x  =  abscissa  of  point  to  be  inter 
polated 


=  ordinate  of  the  point  on  the  line 
with  x 


Computer  Calculus 

Long  perceived  as  merely  number  crunchers, 
computers  are  now  moving  into  the  realm  of  elegant 
mathematics.  Computer  algebra  programs  are  now 
available  for  personal  computers.  These  programs 
can  manipulate  abstract  symbolic  mathematical  ex- 
pressions and  have  the  ability  to  do  virtually  ev- 
erything taught  in  the  first  two  years  of  university 
mathematics.  They  can  factor  polynomials,  simplify 
expressions,  differentiate  functions,  solve  equa- 
tions, expand  functions  into  a  Taylor  series,  invert 
matrices,  and  even  integrate  functions,  as  a  coup  de 
grace.  An  outgrowth  of  the  MACSYMA  program 
developed  on  large  mainframe  computers,  muMath 
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is  a  rewritten  version  capable  of  running  on  virtu- 
ally any  Z80  or  8080  microcomputer.  A  simplified 
version  (called  Picomath)  has  also  been  written  in 
BASIC  to  run  on  just  about  any  personal  computer. 
Both  programs  are  marketed  by  the  Micro- 
soft Corporation,  10700  Northup  Way,  Bellevue, 
WA  98004,  and  should  be  seriously  considered  for 
purchase  by  professionals  who  must  have  reliable 
solutions  to  mathematical  problems  and  by  students 
of  mathematics.  Examples  of  symbolic  computer 
algebra  produced  by  the  muMath  program  appear 
below,  and  demonstrate  that  their  programs  are 
approaching  true  artificial  intelligence  capabilities: 


Factor  x25  +  1: 

(x  -  1)  (x4  -  x3  +  x2 
-  x5  +  1) 


x  +  lXx20  -  x15  +  x11 


Integrate 


2x 


x3  +  1 


2  lQg  (x2  -  x  +  1)  _  log  (abs(x  +  a)) 
6  3 

2x-  1 

atan  ( ) 

V3" 

V3 


Expand  xl  I  (1  -  x")24: 
n  =  1 

x  -  24X2  +  252X3  -  1472x4  +  4730X5  + 


Determinant  of 


X3  x2  X  1 

y3  y2  y  i 

z3  z2  z  1 

w3  w2  w  1 


(k-w)  (y-w)  (y-x)  (z-w)  (z-x)  (z-y) 


Calculate  30! 
2652528598121910586363084800000000 


MATHEMATICAL  RECREATIONS 
AND  PROGRAMMING  CHALLENGES 

Interesting  mathematical  problems  and  ideas 
to  implement  on  your  computer  include  the  follow- 
ing. 

Using  probability  to  forecast  the  out- 
come of  a  sporting  event.  For  example,  an  equa- 
tion expressing  the  probability  that  a  stronger  team 
will  win  in  a  seven  game  series  is 

p4  +  4p4q  +  10p3q2  x  +  10p2q2(l-x)p 

where  p  =  probability  that  stronger  team  will  win 
(>.5) 
q  =  probability  that  weaker  team  will  win 

(=1-P) 
x  =  conditional  probability  particular  to  a 
sport  for  example,  for  basketball  this 
value  has  been  calculated  to  be  = .  408) 

For  further  information  see  Mathematics  Magazine, 
Sept. -Oct.  1975,  pp.  187-192. 

The  program  in  Listing  3-8  can  help  in  pre- 
dicting the  outcome  of  the  World  Series  (or  other 
seven-game  series)  if  you  can  estimate  (that  is, 
guess)  the  probability  of  a  given  team  winning  each 
of  the  seven  games  based  upon  such  factors  as  game 
location,  opposing  pitchers,  and  other  rational  or 
irrational  hunches.  For  further  discussion  consult 
"The  World  Series  Competition,"  Journal  of  the 
American  Statistical  Association  47,  Sept.  1952,  pp. 
335-80. 

Solving  mathematical  puzzles.  Puzzles 
such  as  the  following  can  probably  be  solved  with 
the  use  of  brute-force,  trial  and  error  computer 
techniques  only— if  they  can  be  solved  at  all: 

•  Find  three  distinct  right  triangles  with  the  fol- 
lowing properties: 

A.  Are  Pythagorean  (all  three  sides  are  inte- 
gers) 

B.  The  perimeters  of  the  three  triangles  are 
equivalent 

C.  The  areas  of  the  triangles  are  in  arithmetic 
progression 

•  Find  the  smallest  solution  in  positive  integers  x 
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Listing  3-8:  The  World  Series  Predictor  Program 

10  REM  WORLD  SERIES  PREDICTOR 

25  DIM  P(20) ,F(20) ,T(20),G(20) 

30  PRINT  "ENTER  THE  GAME  PROBABILITIES  FOR  ALL  SEVEN  GAMES" 

40  PRINT  "IN  DECIMAL  FORM  (E.G.  USE  .40  FOR  40%)" 

50  REM  THE  USER  MUST  DETERMINE  INDIVIDUAL  GAME  PROBABILITIES 

55  REM  (NATIONAL  VS.  AMERICAN  LEAGUE) 

60  REM  ON  THE  BASIS  OF  PITCHERS,  HUNCHES,  WHERE  PLAYED,  ETC. 

65  REM  PROGRAM  DETERMINES  OUTCOME  OF  A  1000  GAME  SERIES  TO 

66  REM  PREDICT  THE  SERIES  OUTCOME 
70  FOR  X=l  TO  7:INPUT  P(X):NEXT  X 

74  PRINT  "WAIT  WHILE  I  PLAY  1000  GAMES" 

75  PRINT 

80  N=0:A=0:FOR  X=l  TO  7: IF  RND<P(X)  THEN  100 

90  A=A+1:IF  A=4  THEN  140  ELSE  110 

100  N=N+1:IF  N=4  THEN  170 

110  NEXT  X 

130  Al=Al+l:G(N+A)=G(N+A)+l:GOTO  190 

140  REM 

170  N1=N1+1:F(N+A)=F(N+A)+1 

190  T(N+A)=T(N+A)+1 

200  IF  N1+AK1000  THEN  80 

210  PRINT  "SERIES  #", "TOTAL" , "NATIONAL" , "AMERICAN" 

220  FOR  X=4  TO  7:PRINT  X,T(X) ,F(X) ,G(X) 

230  NEXT  X: PRINT  ," "," "," " 

240  PRINT  "TOTALS:", "1000", N1,A1:PRINT 

245  PRINT  "SIMULATED  1000  GAME  SERIES  RESULTS  ABOVE" :PRINT 

250  PRINT  "AVE.  LENGTH  OF  SERIES  IS  " ; (4*T(4) +5*T(5) +6*T(6) +7*T(7) 

)/1000 

260  END 


and  yofx2-n.y2=l  where  n  =  61 

•  Find  how  many  ways  the  integer  10, 000  can  be 
expressed  as  a  sum  of  distinct  positive  integers 
(ignoring  permutations). 

•  Find  the  minimum  value  of  the  gamma  function, 
gamma  (n)=(n-l)! 

for  an  integer  n  in  the  range  1<  n  <2. 

Puzzles  that  are  simpler  to  solve  include  such 
popular  logic  games  as 

•  Instant  Insanity™  blocks:  five  blocks  with  dif- 
ferent colors  on  each  side  must  be  arranged  so 
that  all  five  blocks  in  a  row  have  the  same  colors 
on  each  side.  The  computer  could  determine  all 
possible  solutions.  (7,962,624  possible  combi- 
nations exist  and  there  are  192  solutions.) 


•  The  High  I.  Q.  Game  consists  of  a  board  in  the 
shape  of  a  cross  with  markers  in  every  hole  ex- 
cept the  center  hole.  The  player  jumps  markers 
with  adjacent  markers  as  in  checkers  and  then 
removes  the  one  jumped  over.  Markers  may  not 
be  moved  unless  a  jump  is  possible.  The  object  of 
the  game  is  to  jump  all  the  markers  on  the  board, 
leaving  only  one  final  marker;  this  is  difficult  to 
accomplish.  The  computer  could  determine  the 
strategy  for  winning  the  game  and  the  number 
of  different  ways  possible  to  win  (is  there  only 
one  method?).  A  mathematical  analysis  of  this 
game  appeared  in  The  Journal  of  Recreational 
Mathematics,  Vol.  5,  No.  2,  1972  pp.  133-.  The 
triangular  version  was  discussed  in  The 
Mathematics  Teacher,  January  1979,  pp.  53-. 
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Computing  Pi,  e,  solutions  for  high- 
degree  equations,  and  mathematical  oddi- 
ties. Many  mathematicians  take  delight  in  com- 
puting values  for  irrational  expressions,  determin- 
ing equations  for  special  mathematical  cir- 
cumstances, and  discovering  unusual  properties  of 
specific  numbers.  The  computer  is,  of  course,  use- 
ful in  such  computations. 

Calculation  of  the  value  of  Pi  to  any  number  of 
decimal  places  can  be  accomplished  by  the  BASIC 
program  in  Listing  3-9. 

Pi  can  be  calculated  using  this  successive  ap- 
proximation: 

ir  =  4  -  4/3  +  4/5  -  4/7  +  4/9  -  4/11  +  .  .  . 

Similarly,  the  value  of  the  natural  log  e  may  be 
calculated  using  this  successive  approximation: 

x2      x3      x4 
ex  =1  +x+  — +  —  +  —  4- 
2!      3!      4! 

Programs  to  compute  a  Fibonacci  Sequence 
are  also  popular.  The  sequence  is  created  by  adding 
each  previous  term  to  the  term  before  that: 

1,1,2,3,5,8,13... 
Sunflower  and  daisy  florets,   pinecones, 


pineapples,  the  shells  of  some  mollusks,  and  even 
patterns  of  paving  stones  and  the  mating  habits  of 
bees  and  rabbits  exhibit  properties  given  by  the 
Fibonacci  Sequence.  For  instance,  the  seeds  of 
sunflowers  and  daisies  form  a  pattern  of  two  sets  of 
spirals,  one  clockwise  and  the  other  coun- 
terclockwise. The  numbers  of  spirals  in  the  two 
sets  are  usually  consecutive  Fibonacci  numbers  (for 
example  34  and  55). 

Playing  games.  Interesting  mathematical 
games  for  your  computer  include  the  following: 

•  The  four  color  map  problem:  a  recreation  that  has 
interested  mathematicians  for  many  years  is  to 
prove  that  only  four  colors  are  needed  to  copy  any 
map  in  such  a  manner  that  no  bordering  countries 
are  of  the  same  color.  The  proof  was  ac- 
complished by  a  large-scale,  brute-force  com- 
puter program. 

A  game  based  on  this  fact  could  involve  two 
players  who  attempt  to  force  each  other  to  color 
two  bordering  countries  the  same  color.  In  each 
turn,  a  player  would  choose  any  color  to  apply  to 
any  country  on  a  map  with  random  boundaries. 
Proper  logic  will  ensure  that  one  player  will  lose. 
The  computer  could  serve  as  one  of  the  oppo- 
nents. 

•  Magic  squares  game:  the  magic  squares  game 
pits  the  computer  against  a  human  in  an  attempt 


Listing  3-9:  The  Pi  Calculation  Program 

1  REM  PI  CALCULATION  PROBRAM 

2  REM  DEMONSTRATES  ITERATIVE  TECHNIQUES  (REQUIRES  30,000 

3  REM  LOOPS  TO  CALCULATE  TO  FIVE  DECIMAL  PLACES. ) 
5  DEFINT  D 

10  S=0:V=-1:R=1 

11  FOR  D=l  TO  10000 
20  L= 1 0000 

30  T=2*R-1 

40  V=-1*V 

50  S=S+V/T 

60  N=N+l:R=R+l 

70  L=L+ 10000:  IF  L> 11 0000  SOTO  30 

80  PRINTN,  4*S 

90  NEXT  D 

100  END 
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to  complete  a  magic  square  while  blocking  an 
opponent.  A  magic  square  is  composed  of  smaller 
squares,  each  with  a  separate  number  inside.  The 
numbers  in  the  smaller  squares  in  horizontal, 
vertical,  and  diagonal  rows  sum  to  the  same 
amount.  Opposing  players  could  attempt  to  com- 
plete a  magic  square  in  opposing  directions. 

•  Maze  games:  maze  games  involve  a  randomly 
generated  maze  and  a  computer  controlled  mouse 
that  learns  to  find  its  way  through  the  maze. 

•  Exacto:  this  game  for  young  people  involves  two 
five-digit  numbers  that  have  been  randomly 
selected  by  the  computer.  Players  are  instructed 
to  transform  the  first  number  into  the  second 
through  multiplication,  division,  addition,  or 
subtraction  of  any  other  number  within  a 
specified  range.  The  computer  would  keep  track 
of  all  computations  at  each  stage.  The  players  are 
scored  according  to  speed  or  number  of  opera- 
tions required  to  finish. 

•  Euclid:  in  this  game  (p,q)  represents  a  pair  of 
positive  numbers  such  that  p  is  greater  than  q;  A 
and  B  signify  the  two  players.  Players  alternate 
turns.  Each  turn  consists  of  replacing  the  larger 
of  the  two  numbers  given  to  a  player  by  any 
positive  number  obtained  by  subtracting  a  posi- 
tive multiple  of  the  smaller  number  from  the 
larger  number.  (All  numbers  are  integers).  The 
first  player  to  obtain  zero  for  the  (new)  smaller 
number  is  declared  the  winner. 

A  sample  game  is  shown  below;  (51, 30)  is  the 
starting  pair  of  numbers. 

A:  (30, 21)  B:(21,9)  A:  (9, 3)  B:(3,0)  B  wins 

or  the  game  could  have  been 

A:  (30, 21)  B:(21,9)  A:  (12,  9)  B:(9,3) 
A:  (3, 9)  A  wins 

•  The  Two  Move  Game:  in  the  first  half  of  this 
game,  the  two  players  secretly  enter  four  non- 
negative  numbers  totaling  the  same  number  into 
the  cells  of  a  2  by  2  matrix: 

xl       x2      yl      y2 
x3       x4      y3      y4 


The  entries  are  then  exposed  and  a  third  2  by  2 
matrix  is  developed  in  which  the  entries  are  xy.. 
This  final  matrix  is  then  analyzed  by  the  first 
player  who  chooses  a  column  and  tries  to 
maximize.  The  second  player  then  chooses  a  row 
and  tries  to  maximize.  The  player  with  the 
greatest  variation  wins.  A  mathematical  strategy 
exists  to  win  this  game;  can  you  find  it? 

•  Sim:  the  game  of  Sim  involves  a  gameboard  like 
this: 


The  players  take  alternate  turns  drawing  lines 
between  two  points.  The  first  player  to  draw  an 
equilateral  triangle  or  square  loses.  A 
mathematical  strategy  exists  to  win  this  game. 
•  Life:  this  popular  computer  recreation  was  de- 
vised by  John  Conway,  a  mathematician  at  Cam- 
bridge University.  It  simulates  an  ecological 
system  and  illustrates  the  rise,  fall,  and  changes 
of  a  society  of  living  organisms  as  they  interact 
with  their  environment  and  each  other.  The  game 
begins  with  a  small  population  of  organisms;  as 
time  progresses  (measured  in  terms  of  genera- 
tions), the  population  experiences  one  of  three 
fates:  it  dies  out  due  to  over  or  underpopulation, 
it  becomes  stable,  or  it  oscillates  in  a  repeating 
pattern.  Each  member  of  the  population  has  one 
of  three  fates  during  each  generation.  It  can  die 
from  "starvation,"  give  birth  to  another  or- 
ganism, or  survive  in  a  stable  form. 

The  game  board  is  a  grid  of  arbitrary  size, 
often  larger  than  20  x  20.  Each  square  on  the  grid 
may  be  occupied  by  one  organism  or  empty. 
Thus,  each  organism  always  has  eight  surround- 
ing squares.  It  will  die  if  it  touches  fewer  than 
two  or  more  than  three  occupied  squares.  If  three 
occupied  squares  touch  an  empty  square,  a  new 
occupant  is  born  to  fill  that  square.  Births  and 
deaths  are  evaluated  simultaneously. 

When  the  game  of  Life  is  written  in  machine 
language,  it  will  progress  at  speeds  faster  than 
one  generation  per  second  and  can  create  a  fas- 
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cinating  display  of  computer  graphics.  The 
course  of  a  population  through  the  first  few  gen- 
erations is  shown  in  Fig.  3-1. 

Computing  probabilities.  You  could  use 
your  computer  to  calculate  the  following  prob- 
abilities. 

•  Poker  Probabilities:  you  could  compute  the  prob- 
ability that  m  *  n  cards  held  by  a  defender  in  a 
bridge  hand  will  be  split  m  and  n,  or  the  prob- 
abilities for  obtaining  a  certain  hand  in  poker  after 
certain  cards  have  been  played. 

•  Birthdays:  in  a  classroom  of  24  students,  how 
many  would  you  estimate  have  the  same  birth- 
day? The  chances  are  slightly  better  than  even 
that  2  or  more  students  will  have  birthdays  on  the 
same  date,  counter  to  our  intuition!  For  a  given 
number  of  people,  x,  the  percent  chance  that  2  or 
more  will  have  the  same  birthday  is  given  by 


%  chance  =  100  -  100 


/365-x\ 
\365   J 


Write  a  BASIC  program  to  calculate  the  percent 
chance  of  coincident  birthdays  for  any  input  of  x, 
the  number  of  people  in  the  group  considered. 
An  Apocalyptic  Possibility:  an  equation  ex- 
pressing the  probability  of  an  accidental  nuclear 
missile  launch  by  the  United  States  or  the  Soviet 
Union  falsely  triggering  World  War  III  is  as  fol- 
lows: 


PA  =  1-(1-Pf«u+S> 

where  PA  =  Probability  of  the  Apocalypse  (for 
percent  chance,  multiply  PA«100) 

U  =  total  number  of  strategic  missiles  in 
the  U.S.  arsenal  (2000  est.) 

S  =  Total  number  of  strategic  missiles  in 
the  Soviet  arsenal  (2300  est.) 

P  =  Probability  of  accidental  launching  of 
a  nuclear  missile  by  either  side 
during  a  24-hr.  period  (1F-8  estimated) 

N  =  Number  of  days  under  consideration 
(20  years  =7, 300  days) 

Write  a  BASIC  program  to  consider  dif- 
ferent values  for  U,  S,  P,  and  N. 

Calculating  useful  information.  You  can 

use  your  computer  to  figure  out  practical  informa- 
tion such  as  the  following: 
•  Easter:  a  program  to  calculate  the  date  of  Easter 
for  any  year  would  make  use  of  the  fact  that 
Easter  falls  on  the  first  Sunday  following  the 
arbitrary  Paschal  Full  Moon,  which  does  not 
necessarily  coincide  with  a  real  or  astronomical 
moon.  The  Paschal  Full  Moon  is  calculated  by 
adding  1  to  the  remainder  obtained  by  dividing 
the  year  by  19  and  applying  the  information  given 
in  Table  3-1. 

Thus,  for  the  year  2000,  the  key  is  6,  or 
April  18.  A  program  to  calculate  the  day  of  the' 
week  (see  the  Business  and  Financial  Applica- 
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Fig.  3-1.  The  course  of  a  Life  population  through  nine  generations. 
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Table  3-1.  The  Paschal  Full  Moon  Date. 

1-Apr  14 

6-Apr  18 

11 -Mar  25     16-Mar  30 

2-Apr  3 

7-Apr  8 

12-Apr  13      17-Apr  17 

3- Mar  23 

8-Mar  28 

13-Apr2        18- Apr  7 

4-Apr  1 1 

9-Apr  16 

14-Mar22     19-Mar27 

5-Mar  31 

10-Apr  5 

15-Apr  10 

tions  chapter)  could  then  indicate  that  April  18, 
2000  is  a  Tuesday.  Note:  If  the  Paschal  Full 
Moon  falls  on  a  Sunday,  Easter  is  the  following 
Sunday.  The  earliest  Easter  can  fall  is  March 
23rd  and  the  latest  is  April  25th. 
•  Horizons:  the  distance  to  the  horizon  in  miles  is 
approximately  =  V  1.5h,  where  h  =  elevation 
above  sea  level  in  feet.  Write  a  BASIC  program 
to  draw  a  mountain  and  print  the  miles  to  the 
horizon  for  viewers  located  at  100  foot  intervals. 
Creating  artistic  patterns.  You  can  use 
your  microcomputer  to  generate  interesting,  artis- 
tic patterns  such  asPascal's  art.  As  described  in  the 


December  1966  issue  of  Scientific  American,  Pas- 
cal's triangle  may  be  used  to  generate  artistic 
geometric  patterns.  A  sample  Pascal  triangle  is 
shown  below;  each  number  in  the  successive  rows 
is  generated  by  adding  the  two  numbers  above  and 
to  the  immediate  left  and  right  of  the  number  in 
question. 

1 

1  1 

1  2  1 

13  3  1 

14  6  4  1 

1  5  10  10  5  1 

To  write  a  BASIC  program  to  generate  pat- 
terns using  the  triangle  you  could,  for  instance, 
represent  all  odd  numbers  by  an  X  and  all  even 
numbers  by  a  space.  Print  the  results  on  a  line 
printer;  a  variety  of  interesting  geometrical  pat- 
terns involving  triangles  will  be  formed. 
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Chapter  4 


Technical  and  Scientific  Applications 


Personal  computers,  rather  than  their  large-scale 
counterparts,  are  increasingly  being  used  by  tech- 
nicians and  scientists  for  problem  solving.  They 
offer  the  advantages  of  ease  of  use,  low  cost,  and 
greater  portability.  Although  many  large  scale  sci- 
entific problems  are  best  left  to  supercomputers, 
the  personal  computer  has  become  an  asset  in  its 
own  right  in  all  types  of  laboratories. 

In  this  chapter  I  will  examine  the  ways  per- 
sonal computers  have  been  put  to  scientific  and 
technical  use.  The  personal  computer  can  help  to 
rid  the  professional  or  amateur  scientist  of  the 
mathematical  drudgery  that  is  so  much  a  part  of  the 
discovery  process.  It  can  rapidly  and  accurately 
solve  problems,  many  of  which  would  not  have 
previously  been  undertaken  because  of  their  sheer 
magnitude. 

Many  of  these  applications  are  specialized;  the 
purpose  of  this  chapter  is  to  touch  upon  just  a  few  of 
the  most  commonly  used  scientific  applications, 
provide  sources  for  further  information,  and  dem- 
onstrate some  solutions  in  BASIC.  Due  to  space 
restrictions,  formulas  and  in-depth  coverage  of 


each  application  is  impossible,  but  this  information 
should  be  readily  available  in  standard  reference 
manuals. 

WEATHER  FORECASTING 

Forecasting  the  weather  is  usually  thought  to 
be  a  task  for  large  computers  only.  However,  local 
weather  forecasting  can  be  accomplished  with  sur- 
prising accuracy  by  taking  note  of  wind  direction 
and  barometric  changes.  A  chart  in  use  by  local 
weather  bureaus  has  been  based  upon  these  two 
parameters  and  could  easily  be  computerized.  This 
data  could  be  input  automatically  by  the  use  of 
electronic  barometers  and  wind  direction  instru- 
ments. 


Barometric 

Forecast 

Wind  change 

condition 

code 

From      To 

S         SW 

7 

L 

S         SE 

3 

E 

4 

F 

9 

M 
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Barometric 

Forecast 

E. 

Wind  change 

condition 

code 

F. 

From        To 

G. 

NE       SE 

3 

G 

H. 

4 

H 

I. 

5 

J 

6 

K 

J. 

9 

M 

K. 

N         E 

3 

I 

4 

A 

9 

N 

L. 

to  the  West 

8 

0 

NW      SW 

1 

c 

-M. 

2 

B 

3 

7 

D 
L 

N. 

If  a  forecast  is  not  listed  for  the  proper  barometric 
condition,  enumerated  below,  other  factors  must  be 
used  to  provide  the  forecast. 

Barometric  Conditions 

(IN  INCHES  Hg) 

1.  30.1  or  more  and  steady 

2.  30.1-30.2  rising  rapidly 

3.  30. 1  or  more  falling  slowly 

4.  30. 1  or  more  falling  rapidly 

5.  30.0  or  less  falling  slowly 

6.  30.0  or  less  falling  rapidly 

7.  30. 0  or  less  rising  slowly 

8.  29.8  or  less  rising  rapidly 

9.  29.8  or  less  falling  rapidly 

A  rapid  change  is  considered  to  be  over  .06 
inches  per  hour.  3  inches  Hg  =  760  mm  Hg. 

Forecasts 

A.  Summer  rain  probable/12-24  hours.  Winter 
rain  or  snow,  increasing  wind;  bad  weather 
often  sets  in  when  barometer  begins  to  fall  and 
winds  set  in  from  the  N.E. 

B.  Fair,  followed  within  two  days  by  rain. 

C.  Continued  fair,  no  decided  temperature 
change. 

D.  Fair  for  two  days  with  slowly  rising  tempera- 
tures. 


O. 


Rain  within  24  hours. 
Wind  increasing,  rain  within  24  hours. 
Rain  within  12-18  hours. 
Wind  increasing,  rain  within  12  hours. 
Summer  light  winds,  rain  may  not  fall  for  sev- 
eral days.  Winter  rain  within  24  hours. 
Rain  will  continue  for  1  to  2  days. 
Rain,  with  high  wind,  followed  within  36  hours 
by  clearing,  and  in  winter  by  colder  tempera- 
tures. 

Clearing  within  a  few  hours,  fair  for  several 
days. 

Severe  storm  imminent,  followed  within  24 
hours  by  clearing,  and  in  winter  by  colder 
temperatures. 

Severe  northeast  gale  and  heavy  precipitation, 
in  winter,  heavy  snow  followed  by  a  cold  wave. 
Clearing  and  colder. 

A  cloud  chart  with  forecasts  included  is  also 
useful.  The  forecast  data  for  the  various  types  of 
clouds  could  be  stored  and  a  comparison  made  be- 
tween this  forecast  and  a  forecast  from  the  above 
chart. 

Other  suggestions  for  applying  a  personal 
computer  to  weather  calculations  include  the  fol- 
lowing. 

1.  Pressure/height  conversions  to  allow  an 
anaeroid  barometer  to  serve  as  an  altime- 
ter. 

2.  Dew  point  temperature  and  relative 
humidity  from  wet  and  dry  bulb  readings. 

3.  Normal  maximum,  mean,  and  minimum 
temperature  degrees  days  for  a  given  date 
and  location. 

4.  Estimates  of  cloud  base  heights  from  dew 
point  and  surface  temperature  observa- 
tions. 

5.  Almanac  data  for  a  given  time  and  date  (for 
example,  declination  of  the  sun,  distance  of 
the  sun  from  the  earth,  phase  of  the  moon, 
and  positions  of  the  planets)  stored  for 
ready  access. 

6.  Analysis  and  display  of  hourly  weather  data 
derived  from  a  phone  line  connected  with  a 
weather  data  channel. 

7.  Temperature  humidity  index  and  relative 
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Listing  4-1:  The  Temperature  Humidity  Index  Program. 

1  CLS 

10  PRINT  "TEMPERATURE  HUMIDITY  INDEX  CALCULATOR" 

20  PRINT  "DETERMINES  THE  EFFECTIVE  TEMPERATURE" 

30  INPUT  "ENTER  THE  RELATIVE  HUMIDITY  ",H 

40  IF  H>94  THEN  A=0  ELSE  IF  H>89  AND  H<95  THEN  A=2 

50  IF  H>79  AND  H<90  THEN  A=4  ELSE  IF  H>69  AND  H<80  THEN  A=6 

60  IF  H>59  AND  H<70  THEN  A=10  ELSE  A=14 

70  INPUT  "ENTER  THE  TEMPERATURE  (IN  DEGREES  F)  ",T 

80  TH=.8*T+15-A 

90  PRINT  "THE  TEMPERATURE  HUMIDITY  INDEX=";TH 

100  INPUT  "PRESS  ENTER  END",A$:END 


8. 


humidity  calculations.  The  program  in 
Listing  4-1  determines  the  effective  tem- 
perature given  the  relative  humidity  and 
the  actual  temperature. 
Wind  chill  factor  calculations.  To  calculate 
the  wind  chill  factor,  use  the  following  for- 
mula: 


H  =  (.14  +  .47V)  (36.5-T) 

where  H  =  chill  in  calories  lost  per  square  cen- 
timeter of  skin  per  second 


V  =  wind  velocity  (m/sec.) 

T  =  Temperature  (°C) 
The  program  in  Listing  4-2  converts  dry  bulb 
temperature  in  °F  and  wind  speed  in  mph  to  ap- 
parent wind  chill  temperature. 


THE  SUNDIAL  DESIGN  PROGRAM 

Use  the  program  in  Listing  4-3  to  compute  the 
correct  angles  to  use  in  constructing  a  sundial  for 
your  latitude. 


Listing  4-2:  The  Wind  Chill  Calculator  Program 

10 

REM   WIND    CHILL    CALCULATOR 

20 

INPUT' 

ENTER 

TEMPERATURE    IN   FAHRENHEIT" J T 

30 

INPUT' 

ENTER 

WIND    SPEED    IN   M.P.H";V 

40 

T1=T: V= (V*1609. 35) /3600: TC=33- ( (T-32) * (5/9) ) 

50 

H=UO. 

45+<SQR(V)*10)-V>*TC:X=H-506.784 

60 

IF    X<0    THEN 

Xl=Tl:GOTO    80 

70 

XI =50- 

-(X/12. 

3) :X1=INT( ( <X 1*10) +5)/ 10) 

80 

PRINT: 

PRINT' 

'WIND   CHILL    TEMP="5X15"    DEGREES   FAHRENHEIT" 

90 

END 

Listing  4-3:  The  Sundial  Design  Program 

100  REM  SUNDIAL  DESIGN  PROBRAM 

110  REM  COMPUTES  NECESSARY  ANGLES  FOR  YOUR  LATITUDE 

120  PRINT  "ENTER  YOUR  LATITUDE"; 

130  INPUT  A 

140  PRINT  "CUT  OUT  A  STYLE  SUCH  THAT  THE  UPPER  EDGE  MAKES  AN  ANGLE" 
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150 

PRINT  "OF 

"; A; "DEGREES  WITH  THE  BASE." 

160 

S=SIN(A) 

170 

X=l 

ISO 

FOR  B=15 

TO  90  STEP  15 

190 

T=TAN<B) 

200 

C=S*T 

210 

X=X+1 

220 

PRINT  "AT 

";X;  "0 

CLOCK,  THE  ANCLE 

SHOULD 

BE 

"; 

ATN(C)*57 

. 29578 

230 

REM  IN  STATEMENT 

220  THE  CONSTANT 

57.29578 

IS 

USED 

TO 

CONVERT 

240 

REM  FROM 

RADIANS 

TO  DECREES 

250 

NEXT  B 

260 

END 

The  style  should  be  set  so  that  it  lies  in  a  north 
south  direction  as  shown  in  Fig.  4-1.  The  top  edge 
points  to  the  North  star,  equal  to  the  latitude  in 
degrees  above  the  horizon.  The  program  gives  you 
the  angles  to  use  in  graduating  the  scale  for  each 
hour. 


ENERGY  EFFICIENCY  COMPUTATION 

You  can  use  your  small  computer  to  make  the 

following  studies. 

•  A  computerized  statistical  comparison  between 
the  water  temperature  in  a  solar  energy  system 
and  the  outside  temperature,  the  angle  of  the  sun, 


Fig.  4-1 .  The  Moorish  sundial. 
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and  so  on  could  serve  to  evaluate  the  efficiency  of 
a  home  solar  energy  system.  Analog  to  digital 
converters  could  be  used  to  gather  the  informa- 
tion automatically. 
•  Those  of  you  considering  the  installation  of  a 
solar  system  might  want  to  do  another  statistical 
analysis  of  the  heating  requirements  for  your 
home  based  on  Btu/hr  times  the  number  of  hours 
that  your  furnace  operates  during  the  heating 
season.  The  size  of  a  solar  system  necessary  to 
heat  your  house  can  then  be  calculated  using  this 
data  and  the  manufacturer's  efficiency  data. 
In  the  central  U.S.  on  June  21,  the  maximum 
solar  energy  striking  the  earth  is  290  Btu/square 
foot  (approximately  15  hours  in  the  day).  On  De- 
cember 21,  the  solar  energy  is  a  maximum  of  220 
Btu/square  foot  (approximately  9  hours  in  the  day). 
Thus,  you  can  compute  average  values  for  the  vari- 
ables in  the  formula  below. 


z  =  the  number  of  hours  from  the  beginning 
of  reheating  until  the  house  is  at  an 
acceptable  temperature 

•  To  find  the  heat  loss  of  your  home,  use  the  for- 
mula 

kA(t-tx)T 

where  H  =  heat  transmission  (Btu) 

K  =  coefficient  of  thermal  conduction  (Val- 
ues for  the  type  of  construction  used  in 
your  home  may  be  found  in  builder's 
manuals) 

A  =  exposed  area 
(t-t1)  =  temperature  difference 

between  inside  and  outside  (°F) 

T  =  duration  of  exposure  (hours) 

d  =  thickness  of  walls  (inches) 


Solar  collector 
Btu  output 


B*h*s*m* 


where  B  =  Btu/sq  ft 
h  =  hrs/day 


s  =  sq.ft  of  collector 
m  =  max.  efficiency 


Keep  in  mind  that  it  takes  500  Btu  to  heat  water  at 
ground  temperature  (40°F)  to  100°F  and  that  the 
desired  water  temperature  for  home  use  is  120°F. 
•  The  answer  to  "How  much  fuel  can  be  saved  by 
turning  the  thermostat  down  from  70°F  to  60°F  at 
night?"  may  be  determined  using  this  equation: 


A  = 


.0625  (n-l)W 


•  To  calculate  fuel  requirements  use  the  formula 

C  =  H(ta-tb)N  x  S  x  q 
100,000  x  (ti-to) 

where  C  =  fuel  cost 

H  =  heat  loss/hr. 

t   =  outside  temperature 

t.   =  inside  temperature 

t    =  average  inside  temperature 

t^  =  average  outside  temperature 

N  =  number  of  hours  of  heating  required 

S  =  number  of  units  of  fuel 

q  =  cost  per  unit  of  fuel 


Where  A  =  amount  of  heat  (Btu) 

W  =  the  normal  heat  loss/hr.  (Btu) 
n  =  the  number  of  hours  of  discontinued 
heating 


The  program  in  Listing  4-4  calculates  esti- 
mated costs  for  heating  your  home  with  gas,  oil,  and 
electricity.  Be  sure  to  enter  your  heat  loss  in 
British  thermal  units,  not  degrees. 


Listing  4-4:  The  House  Heating  Program 


90  CLS 

100  REM  HOUSE  HEATING  EVALUATION  PROGRAM 

110  PRINT  "THIS  PURPOSE  OF  THIS  PROGRAM  IS  TO  COMPUTE  THE" 
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120  PRINT  "RELATIVE  EFFICIENCY  OF  HEATINB  A  HOME  WITH" 

130  PRINT  "ELECTRICITY, NATURAL  GAS,  OR  OIL.  IT  WILL  BE" 

140  PRINT  "NECESSARY  TO  CONTACT  YOUR  LOCAL  DISTRIBUTORS  OF" 

150  PRINT  "THE  ABOVE . FUELS  TO  MAKE  A  COST  COMPARISON." 

160  PRINT  "THERE  ARE  OTHER  FACTORS  TO  CONSIDER  WHEN  EVALUATING" 

170  PRINT  "THE  COST  FOR  HEATING  (I.E.  THE  AMOUNT  OF  IN-" 

180  PRINT  "SULATION  YOU  HAVE),  BUT  THE  RATIOS  BETWEEN  DIFFERENT" 

190  PRINT  "FUELS  SHOULD  BE  CONSISTENT." 

195  PRINT  "USE  THE  COST  EFFICIENCIES  THE  PROGRAM  OUTPUTS  ALONG 
TH" 

196  PRINT  "THE  COST  OF  THE  HEATING  SYSTEM  TO  DETERMINE  WHICH  YOU" 

197  PRINT  "SHOULD  CHOOSE. "  WI 
200  INPUT  "ENTER  ESTIMATED  HEAT  LOSS  PER  HOUR" 5 H 

205  REM  THIS  MAY  BE  APPROXIMATED  USING  FORMULA  ON  PAGE  136 
OR  WITH  BUILDERS  MANUALS 

210  PRINT  "IF  YOU  KNOW  THE  EFFICIENCY  OF  THE  OIL  BURNING  SYSTEM" 
220  PRINT  "PLEASE  ENTER  THE  VALUE,"; 
230  INPUT  "OTHERWISE  ENTER  '0"jB 
240  IF  B=0  THEN  B=.  8  ELSE  B=B*.01 

250  INPUT  "ENTER  THE  AVE.  NO.  OF  MONTHS  OF  COLD  SEASON  PER  YEAR";C 
260  C=C*720 

270  INPUT  "AT  WHAT  TEMPERATURE  WILL  YOU  SET  THE  THERMOSTAT" ; D 
280  INPUT  "WHAT  IS  THE  AVERAGE  WINTER  TEMPERATURE" i E 
290  REM  COMPUTE  HEAT  LOSS  PER  HOUR 
300  X=( <D-E>/70)*< <H*C)/(140000*B) ) 

310  PRINT  "WHAT  IS  THE  AVE.  PRICE  OF  OIL  IN  YOUR  AREA  PER  GALLON-" 
320  INPUT  "IF  NOT  KNOWN  TYPE  '0'";F 
•330  IF  F=0  THEN  F=.50 

340  PRINT  "YOU  WILL  REQUIRE  AN  ESTIMATED" ; X;  "GALLONS  OF  OIL-COST 
=  "X*F 

350  INPUT  "ENTER  THE  COST  PER  KILOWATT  HR.  IN  YOUR  AREA  IN  DOLLAR 
S"5G 

360  PRINT  "ELECTRICITY  TO  RUN  THE  OIL  PUMP  MAY  COST  UP  T0";206*GS" 
DOLLARS" 

370  PRINT  "IF  YOU  KNOW  THE  EFFICIENCY  OF  THE  NATURAL  GAS  HEATERPLE 
ASE" 

380  INPUT  "ENTER,  OTHERWISE  ENTER  '0'"  ;B 
390  IF  B=0  THEN  B=.8  ELSE  B=B*.01 
400  Y= ( ( D-E ) / 70 ) * ( < H*C ) / ( 1 00000*B ) ) 

410  INPUT  "WHAT  IS  THE  COST  PER  THERM  IN  YOUR  AREA"; I 
420  PRINT  "YOU  WILL  REQUIRE  AN  ESTIMATED"; Y"THERMS  TO  HEAT/CQST=* 
";I*Y 

430  Z=<(D-E)/70>*(H*C>/3405 

440  PRINT  "AND  AN  ESTIMATED" ;  I",  "KWH  WILL  BE  REQUIRED  TO  HEAT  WITH" 

450  PRINT  "ELECTRICITY-COST=*"Z*G 

455  INPUT  "PRESS  < ENTER >  TO  CONTINUE" ;E9*: CLS 

460  PRINT  "SUMMARY:" 

470  PRINT  "MEDIUM",  "AMOUNT",  "COST" 

480  PRINT  "OIL",  X,X*F 

490  PRINT  "NATURAL  GAS",Y,I*Y 

500  PRINT  "ELECTRICITY",  Z,Z*G 

510  PRINT  "REMEMBER  THAT  THESE  VALUES  ARE  ONLY  ESTIMATES" 

520  PRINT  "AND  WILL  DIFFER  ACCORDING  TO  THE  INSULATION,  BUILDING" 
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530  PRINT  "MATERIAL,  FURNISHINBS,  AND  CLIMATE. " 

540  PRINT  "THE  VALUE  GIVEN  ARE  MOST  USEFUL  IN  DETERMINING  THE" 

550  PRINT  "MOST  INEXPENSIVE  METHOD  OF  HEATING  FOR  YOUR  HOME. " 

560  PRINT  "THUS,  THE  PROCUREMENT  COSTS  FOR  THE  VARIOUS  SYSTEMS" 

570  PRINT  "SHOULD  BE  ANALYZED  ALONG  WITH  THE  ABOVE  COSTS  TO" 

580  PRINT  "ARRIVE  AT  A  FINAL  FIGURE." 

590  REM  A  COMPLETE  PROGRAM  COULD  BE  WRITTEN  WITHOUT  MUCH  DIFFICULTY 

600  REM  TO  CONSIDER  THE  ABOVE  FACTORS. . . 


To  calculate  the  Btu  rating  for  an  air  conditioner  yearly  cost  of  operation  for  electrical  appliances 
for  your  home,  use  the  program  in  Listing  4-5.  and  determine  where  cuts  in  electric  bills  would 
Use  the  simple  program  in  Listing  4-6  to  track  the        best  be  made. 


Listing  4-5:  The  Air  Conditioning  Program 

10  REM  AIR  CONDITIONING  REQUIREMENT  CALCULATION 

20  REM  DETERMINES  THE  BTU  RATING  FOR  AN  AIR  COND. /HEATER  FOR  YOUR 

HOME 

30  INPUT  "ENTER  THE  ESTIMATED  TOTAL  SQUARE  FEET  OF  EXTERIOR  WALL 

AREA  FOR  YOUR  HOUSE" 5 W 

40  INPUT  "ENTER  THE  ESTIMATED  TOTAL  GLASS  AREA  FOR  YOUR  HOUSE "jW 

50  INPUT  "ENTER  THE  ESTIMATED  TOTAL  AREA  WITHIN  THE  ROOF 

CROSS-SECTION"? R 

60  INPUT  "ENTER  THE  NUMBER  OCCUPANTS" 5 N 

70  BTU=W*5+G*35+R*12+N* 100+2000 

80  PRINT  "THE  ESTIMATED  BTU  NECESSARY  TO  AIR  CONDITION  YOUR  HOME=" 

5  BTU 

90  PRINT 

100  END 


Listing  4-6:  The  Electric  Cost  Analysis  Program 


10  REM  ELECTRIC  COST  ANALYSIS 

20  INPUT"ENTER  COST  PER  K.W.H.  IN  *"JC 

30  INPUT"FOR  NEXT  APPLIANCE,  SELECT  1) WATTS,  2) VOLTS  +  AMPS" 5 X 

40  ON  X  GOTO  50,  70 

50  INPUT"WATTS"5W 

60  GOTO  90 

70  INPUT "VOLTS,  AMPS"?V,A 

80  W=V*A 

90  INPUT"ENTER  APPROXIMATE  NO.  HOURS  PER  DAY  THIS  APPLIANCE  IS  US 

ED"  5H 

100  KWH=(H*360*W)/1000 

110  PRINT"THIS  APPLIANCE  USES  APPROXIMATELY  "HKWHj"  KILOWATT  HOURS" 

120  PR I NT "PER  YEAR,  AT  AN  ANNUAL  COST  OF  *";KWH*C 

130  PRINT:  GOTO  50 
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•  You  can  use  additional  formulas  available  in 
building  manuals  to  compute  the  savings  of  in- 
stalling insulation  or  the  area  of  a  solar  collector 
necessary  to  heat  a  house  of  certain  dimensions 
and  construction. 

TECHNICAL  AND  SCIENTIFIC  CALCULATIONS 

The  computer  can  be  used  to  perform  calcula- 
tions needed  by  those  involved  in  many  fields  from 
navigation  to  chemistry. 

Aviation 

The  private  or  business  pilot  will  find  the  fol- 
lowing calculations  useful.  Some  are  designed  for 
portable  programmable  calculators  so  that  pro- 
grams may  be  used  while  in  flight. 

1.  Flight  plan  with  wind  allowances:  calculation  of 
the  heading,  speed,  fuel,  ETA,  and  so  on  for  a 
trip  of  multiple  legs  could  be  done. 

2.  Long-range  flight  plan:  calculations  could  be 
done  for  great  circle  routes  and  could  include 
distance,  time,  fuel,  source. 

3.  Atmosphere,  speed,  temperature  and  altitude: 
from  pressure  altitude,  a  program  could  calcu- 
late the  speed  of  sound,  temperature,  pressure 
and  density  relative  to  standard  sea  level. 

4.  Prediction  of  freezing  level  and  lowest  usable 
flight  level. 

5.  Wind  components  and  average  vector: 
crosswind  and  tail  or  head  wind  components  of 
a  single  wind  vector  could  be  calculated. 

6.  Dead  reckoning  of  position. 

7.  Great  circle  flying  navigation. 

8.  Course  correction  to  fly  correct  path. 

9.  Rhumbline  navigation. 

10.  Unit  conversions:  length,  volume,  weight,  En- 
glish and  metric  temperature  conversions. 

°F  =  (9/5)  (°C+32°) 
°C  =  (5/9)  (°F-32°) 

Several  BASIC  programs  and  additional  infor- 
mation on  aviation  calculations  may  be  found  in 
Computers  for  Sea  and  Sky  by  Steven  J.  Rogowski, 
Creative  Computing  Press,  Morristown,  N.J. 
07960. 


Marine  Navigation 

Some  of  the  following  applications  are  de- 
signed for  use  with  programmable  calculators  as 
well  as  pocket  or  lap  computers  so  that  they  can  be 
used  aboard  a  small  vessel. 

1.  Time-speed-distance  with  current  sailing:  a 
useful  program  could  solve  time-speed- 
distance  equations  and  could  consider  the  cur- 
rent in  determining  the  proper  course  to  steer 
and  the  speed  through  the  water  necessary  to 
reach  a  given  destination  in  a  specified  length 
of  time. 

2.  Distance  short  of,  beyond,  or  to  a  horizon:  a 
program  could  calculate  the  distance  to  the 
apparent  horizon  as  well  as  the  distance  to  and 
visibility  of  an  object  of  known  height. 

3.  Velocity,  VMG,  and  current  vectors:  given  two 
of  the  following,  1)  drift  and  set  of  the  current, 
2)  speed  and  course  through  the  water,  3) 
speed  and  course  made  good,  a  program  could 
calculate  the  unknown  value. 

4.  Running  fix  from  two  objects:  a  program  could 
calculate  a  fix  of  a  vessel  from  bearings  of  two 
objects. 

5.  Planet  location.  A  program  could  estimate  the 
altitude  and  azimuth  of  the  four  navigational 
planets.  The  GMT  (Greenwich  mean  time)  of 
twilight  could  also  be  calculated  or  manually 
inputted. 

6.  Rhumbline  and  great  circle  navigation  calcula- 
tion. 

7.  Sight  reduction  calculation. 

8.  Length  conversions,  (for  example,  nautical 
miles  to  statute  miles) 

9.  Vector  addition. 

10.  Estimated  time  of  arrival. 

11.  Conversion  of  compass  points  to  degrees. 

12.  Area  navigation  by  VOR  (very-high-frequency 
omnirange) 

13.  Rhumbline  navigation. 

14.  Dead  reckoning  of  position. 

15.  Great  circle  computations. 

16.  Distance  from  VOR/OMNI. 

17.  Course  correction. 

18.  Distance  by  two  bearings. 

19.  Conversions  between  knots,  miles,  statute- 
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Listing  4-7:  The  Great  Circle  Navigation  Program 


10  REM  GREAT  CIRCLE  NAVIGATION  CALCULATIONS 

20  REM  ENTER  SOUTHERN  LATITUDES  AND  EASTERN  LONBITUDES  AS  NEGATIVE 

NUMBERS 

30  INPUT "ENTER  LATITUDE  AND  LONGITUDE  OF  STARTING  POINT" ;U,W 

INPUT "ENTER  LATITUDE  AND  LONGITUDE  OF  ENDING  POINT" ;Z,R 

PRINT: M=. 01745329 

A=SIN  <U*M) *SIN (Z*M) +COS (U*M) *COS  <Z*M) *COS ( (R-W) *M) 

D=60* (-ATN (A/SQR (-A*A+1 ) ) +1 . 5708) *57. 29579 

C= (SIN (Z*M) - (SIN (U*M) *COS (D/60*M) ) ) / (SIN (D/60*M) *COS (U*M> ) 


40 

50 

60 

70 

SO 

90  H=(-ATN(C/SQR( 

100  F=SIN(R-W) 

110  IF  F>=0  THEN  H=360-H 

120  PRINT"THE  DISTANCE  IS 

";INT(H)S"  DEGREES." 


C*C+ 1 ) ) + 1 . 5708 ) *57 . 29579 


ID:"  NAUTICAL  MILES  AT  A  BEARING  OF 


miles,  kilometers. 
20.  Speed  computation  given  distance  covered  and 
time. 

Many  of  the  above  navigation  calculations  are 
explained  in  Computers  for  Sea  and  Sky,  by  Steven 
J.  Rogowski,  Creative  Computing  Press,  Morris- 
town,  N.J.  07960. 

The  program  in  Listing  4-7  computes  the  dis- 
tance in  nautical  miles  and  bearing  between  two 
points  on  earth.  Enter  starting  and  ending  latitudes 
and  longitudes  as  decimal  degrees. 

Medical  Calculations 

Doctors,  nurses,  technicians  and  other  medi- 
cal personnel  may  find  the  following  calculations 
useful. 
1.  Conversions  of  weight,  length,  and  volume  to 
other  units,  or  English  to  metric  conversion. 
Lung  diffusion  calculations. 
Blood  acid-base  status  determination. 
Beer's  law  calculation. 

Protein  electrophoresis:  given  integration 
counts  of  a  number  of  protein  fractions,  the 
percentage  of  each  may  be  found. 
Body  surface  area  estimation. 
Oxygen  saturation  and  content.  Oxygen  con- 
tent and  saturation  in  the  blood  may  be  found 
given  p02,  pC02,  pH,  and  body  temperature. 


2. 
3. 

4. 
5. 


6. 

7. 


Publications  containing  computer  programs 
and  applications  of  use  to  the  health  professional 
include 

Computer  in  Biology  and  Medicine 

Computers  in  Medicine 

Medical  Computer  Journal  42  East  High  St., 

East  Hampton,  CT  06424 

Physicians  Microcomputer  Report  P.O.  Box 

6483,  Lawrenceville,  NJ  08648 

Surveying  Calculations 

Those  involved  in  surveying  could  utilize  the 
following  calculations. 

1.  Azimuth/bearing  traverse:  given  reference 
coordinates,  leg  length,  azimuth  or  bearing, 
and  quadrant,  the  endpoint  coordinates,  de- 
parture, latitude,  and  total  distance  may  be 
computed. 

2.  Slope  reduction  determinations. 

3.  Point  of  intersection  calculation. 

Chemistry 

Chemists  and  chemistry  students  may  find  the 
following  calculations  useful. 

1.  Calculation  of  requirements  to  produce  a  given 
solution.  The  program  in  Listing  4-8  will  do  the 
calculations  for  you. 

2.  Calculations  of  the  following  parameters,  given 
adequate  inputs:  pH,  molality,  total  atomic 
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Listing  4-8:  The  Stock  Solution  Computation  Program 

5  CLS 

10  REM  STOCK  SOLUTION  COMPUTATION 

20  REM  COMPUTES  THE  AMOUNT  OF  STOCK  SOLUTION  AND  WATER  NECESSARY  TO 

30  REM  PRODUCE  A  GIVEN  SOLUTION 

40  PRINT  "ENTER  THESE  VALUES:  CONCENTRATION  OF  WORKING  SOLUTION, 

50  INPUT  "STOCK  SOLUTION,  TOTAL  AMOUNT  OF  SOLUTION.  ",PW,PS,QT 

60  OS={PW*QT)/PS 

70  W=QT-OS 

80  PRINT  "THE  QUANTITY  OF  STOCK  SOLUTION=" ;OS 

90  PRINT  "THE  QUANTITY  OF  WATER  TO  ADD=";W 

100  PRINT: PRINT 

110  INPUT  "PRESS  ENTER  TO  END",A$:  END       CONCENTRATION  O 


weights,  gas  density  and  pressure,  electron 
energies,  gravimetric  factors,  liquid  pressure, 
degree  of  saturation,  gram  equivalent  weight, 
normality,  percent  composition,  mole  fraction, 
mole  percent,  and  ionic  strength  dilution  fac- 
tor. 
3.  Plotting/simulation  of  reaction  rates,  electron 
distribution,  and  so  on. 

Physics 

Those  involved  with  physics  will  also  find  the 
computer's  capacity  for  performing  calculations 
useful.  Potential  uses  include  the  following. 

1.  Plotting  of  potential  energy  functions,  lab  data, 
and  so  on. 

2.  Conversions  of  units. 

3.  Solutions  to  elementary  equations:  velocity, 
acceleration,  momentum,  work,  power,  etc. 

4.  Statistical  analysis  and  data  compilation. 

An  article  discussing  the  use  of  personal  com- 
puters to  physicists  appeared  in  Physics  Today,  De- 
cember 1983,  pp.  25-28.  The  author  states  "it  is 
very  likely  that  most  calculations  in  physics  will  be 
performed  by  the  home  computer  in  the  future," 
because  of  the  benefit  of  independence  from  large 
computer  organizations,  bureaucracies,  and 
economic  constraints.  He  describes  a  Monte  Carlo 
simulation  that  ran  for  about  a  week  on  his  personal 
computer  and  estimated  that  the  same  job  would 


have  cost  $2000  if  run  on  his  university  CPU. 

General  Purpose  Experimental  Applications 

Scientists  in  many  fields  can  use  their  home 
computers  to  perform  the  following  types  of  calcu- 
lations. 

1.  Statistical  analysis  of  data:  useful  statistical 
applications  include  curve  fitting  and  plotting, 
Chi-square  tests,  analysis  of  variance  and  stan- 
dard deviation,  solutions  to  equations,  and  cor- 
relation coefficients. 

2.  Calculation  of  tables  for  a  specific  application: 
functions  that  are  commonly  referred  to,  yet  do 
not  have  reference  tables,  could  be  calculated 
for  a  number  of  values,  and  the  results  dis- 
played in  table  form  for  easy  reference. 

In  addition  to  using  computers  for  calculations, 
scientists  can  interface  microcomputers  to  lab  in- 
strumentation and  develop  automatic  data  log  and 
aquisition  systems.  They  can  also  develop  voice 
input  interfaces  that  could  accept  data  called  out  by 
a  lab  technician  too  busy  to  manually  record  data. 

ENGINEERING  APPLICATIONS 

Professionals  and  hobbyists  will  have  use  for 
computer  programs  in  the  following  engineering 
fields. 

Electrical  Engineering 

Computers  can  help  those  who  deal  with  elec- 
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Band-pass  and  band  stop' 
w0JLpCp   *  «0*/LsCs  =  l 


Ls=^,Cs=nC     Lp=nL,  Cp=£ 

Performance'  

A=attenuation   (dB)= -8-68589  InJl+v2 
4> = phase* -arc  tan  v 


Fig.  4-2.  Schematics  and  formulae  for  simple  filters. 

tricity  by  performing  calculations  and  analyses,  and  given  center  frequency,  gain,  and  Q  values  for  the 
by  facilitating  design  work.  resistors  and  capacitors  in  the  infinite-gain 
Active  high-  and  low-pass  filter  design,  multiple-feedback  circuit.  Listing  4-9  shows  a  pro- 
High-  and  low-pass  filters  may  be  designed  for  gram  that  performs  these  functions. 


Listing  4-9:  The  Low-Pass  Filter  Design  Program 

100  REM  LOW  PASS  FILTER  DESIGN  PROGRAM 

110  REM  SHUNT  M-DERIVED  FILTER 

120  INPUT  "ENTER  THE  CUTOFF  FREQUENCY" 5 Fl 

130  INPUT  "ENTER  THE  FREQUENCY  OF  REMOTE  CUTOFF" ;  FS 
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140 

INPUT 

"ENTER  THE 

TERM I NAT I N6 

RESISTANCE 

";R 

150 

L=SQR(1-(F1*F1/(F2*F2) ) )*R/<3. 14159*F1> 

160 

Cl=(l- 

-<SQR(1-(F1*F1/<F2*F2) ) ) )-2>/<4*3. 

14159*S 

QR(1 

-F1*F1/(F 

2*F 

2) )*F1*R) 

170 

C2=SQR(1-(F1*F1/(F2*F2) ) )/(3. 

14159*R*F2 

) 

180 

PRINT 

"THE  VALUE 

FOR  L="5L 

190 

PRINT 

"THE  VALUE 

FOR  C1="?C1 

200 

PRINT 

"THE  CALUE 

FOR  C2="jC2 

210 

PRINT 

220 

END 

This  program  may  be  modified  and  extended 
for  use  in  designing  simple  filters  by  the  use  of  the 
schematics  and  formula  in  Fig.  4-2. 

Active  bandpass  filter  design.  Second- 
order  active  bandpass  filters  may  be  designed  using 
a  multiple-feedback  network.  Both  high-Q  and 
low-Q  circuits  could  be  designed.  Standard  values 
may  be  selected  for  easy  implementation. 

Chebyshev  and  Butterworth  filter  de- 
sign. Chebyshev  and  Butterworth  low-pass  filters 
may  be  designed  for  specified  filter  order,  termina- 
tion resistance,  and  corner  frequency. 

Resonant  circuits.  The  impedance  and  res- 


onant frequency  could  be  calculated  by  a  program 
for  series  or  parallel  resonant  circuits  whose  com- 
ponent values  are  specified. 

Attenuators.  Component  values  for  T  and  Pi 
impedance  matching  circuits  may  be  found  for 
specified  input/output  impedances  and  desired 
loss.  Minimum-loss  pad  matching  may  be  per- 
formed for  given  impedances. 

T  to  Pi  transformations.  T(Pi)  networks 
may  be  transformed  to  Pi(T)  networks  having  the 
same  characteristics.  A  T  network  design  program 
is  shown  in  Listing  4-10. 

Ladder  network  analysis.  The  input  im- 


Listing  4-10:  The  Network  Design  Program 

10  CLS 

100  PRINT  "T-NETWORK  DESIGN  PROGRAM" 

105  PRINT  "PROVIDES  A  GRAPHIC  REPRESENTATION  OF  THE  CIRCUIT" 

110  INPUT  "ENTER  THE  RESISTANCE  OF  THE  CIRCUIT  WITH  OUTPUT 

TERMINALS  UNLOADED  " ,  RI 

120  INPUT  "ENTER  THE  OUTPUT  RESISTANCE  WITH  THE  INPUT  TERMINALS  UN 

LOADED  ",RO 

130  INPUT  "ENTER  THE  RESISTANCE  WITH  THE  OUTPUT  TERMINALS  SHORTCIR 

CUITED  ",RN 

140  A=-l 

150  B=R0+1 

160  C=RO*RN-RI 

170  Q1=(-B+SQR(B*B-4*A*C))/(2*A) 

180  Q2=(-B-SQR(B*B-4*A*C))/(2*A) 

190  IF  Q1>=0  THEN  R3=Q1  ELSE  R3=Q2 

200  R2=RO-R3 

210  R1=RI-R3 

220  PRINT:PRINT:PRINT 

230  PRINT  "T-NETWORK  CIRCUIT" 

240  PRINT: PRINT  "         Rl         R2  " 

250  PRINT  " _____      ;__" 

260  FOR  X=l  TO  3 


118 


270  PRINT  "!  !  !  " 

280  NEXT  X 

290  PRINT  "R-IN-- R  OUT" 

300  PRINT  "r ~ ";R3;"OHM" 

310  PRINT  " " 

320  FOR  X=l  TO  3 

330  PRINT  "!  !  !" 

340  NEXT  XrPRINT  " " 

350  END 


pedance  for  a  ladder  network  could  be  calculated; 
the  network  may  be  composed  of  any  combination  of 
resistors,  capacitors,  and  inductors. 

Coil  properties.  The  inductance  or  number 
of  turns  for  a  single  or  multilayer  coil  may  be  found 
given  wire  diameter  and  dimensions  of  the  coil.  The 
inductance  of  two  parallel,  round  wires,  one  form- 
ing a  return  circuit  is  given  by 

L  =  .0041  [2.303  lo^  (2  D/d  -  D/l)] 

where  L  —  inductance  (/x,H) 

D  =  distance  in  cm.  between  centers  of 

wires 
d  =  diameter  of  wire  (cm) 
1  =  length  of  conductor  (cm) 

Power  transformer  design.  Core  weight 
may  be  calculated  for  a  specified  power  require- 
ment. For  a  specified  core,  area  flux  density,  and 
frequency,  the  number  of  primary  and  secondary 
turns  is  found.  A  BASIC  program  to  design  power 
transformers  may  be  found  in  Electronic  Design 
News,  October  27,  1983,  p.  346. 

Rectifier  circuits.  Full-wave  or  half-wave 
rectifier  circuits  may  be  evaluated  for  given  compo- 
nent values,  input  voltage,  and  frequency.  The  dc 
output  voltage  and  peak-to-peak  ripple  may  also  be 
calculated. 

S  and  Y  parameter  transformations.  A  set 
of  S(Y)  parameters  expressed  as  magnitudes  and 
angles  may  be  transformed  to  a  set  of  Y(S)  parame- 
ters. 

Phase-locked  loops.  Natural  frequency, 
damping  factor,  and  loop  noise  bandwidth  may  be 
found  for  either  passive  or  active  phase-locked 
loops.  Loop  gain  and  component  values  for  the  cir- 


cuits are  required  for  input. 

Transistor  amplifier  design.  Collector  cur- 
rent and  sensitivity  factors  can  be  computed  for 
transistor  circuits  for  specified  current  gain,  supply 
voltage,  and  resistor  values. 

Fourier  series.  Fourier  coefficients  may  be 
computed  for  discrete  values  for  a  periodic  func- 
tion. Sine  and  cosine  coefficients  may  be  found  and 
could  be  used  to  calculate  new  values  of  the  func- 
tion. 

Reactive  L-Network  impedance  match- 
ing. Networks  that  will  match  any  two  complex 
impedances  may  be  determined. 

Bilateral  design,  stability  factor,  max- 
imum gain,  and  optimum  matching.  A  program 
could  compute  the  maximum  gain  available  and  the 
load  and  source  reflection  coefficients  that  yield  the 
maximum  gain. 

Frequency  conversion  program.  A  BASIC 
program  to  interconvert  velocity,  period,  wave- 
length, and  frequency  values  could  make  use  of 
these  commonly-used  formulas: 

T  =  1/f 

ft)   =  277-f 

A  =  v/f 
f  =  1/T 
f  =  00/277- 
f  =  v/X 

where  T  =  period 

f  =  frequency 
w  =  radian  frequency 
\  =  wavelength 
V  =  propagation  velocity 

Similarly,  frequency  and  reactance  conversions 
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may  be  accomplished  with  these  formulae 

1 
y    —    . 

1 

"      ~      27rfC 

wC 

\    =      27TfL 

=   coL 

c            l 

1 

2^fXc 

wXc 

\ 

L              277f 

CO 

1 

f  = 


2ttCX, 


2ttL 


555  timer  circuit  design.  Given  the  fre- 
quency duty  cycle  and  either  the  timing  capacitor  or 
resistor,  a  program  could  calculate  the  other  timing 
component,  charge  time,  discharge  time,  and 
period  of  the  commonly  used  555  stable  multivi- 
brator circuit. 


Resonance  calculations.  Resonant  fre- 
quency of  inductance-capacitance  circuit  is  given 
by: 


fr  =■ 


L-R^C 


2ttVLC  (L-Rc'C) 

where  L  =  l/(4^f  C) 
C  =  1/(477^L) 

RL=  series  resistance  of  inductor 
Rc=  effective  series  resistance  of  capacitor 
f  =  resonant  frequency 

Antenna-design.  A  given  frequency  could  be 
inputted  to  a  program  that  would  calculate  the  an- 
tenna dimensions  for  a  dipole,  Yagi,  or  cubical  quad 
antenna.  The  program  in  Listing  4-11  can  be  used  to 
calculate  the  dimensions  for  a  yagi  antenna  to  re- 
ceive television,  radio,  or  amateur  radio  broad- 
casts; the  antenna  is  designed  for  a  specific  fre- 
quency. Such  an  antenna  can  often  receive  signals 
from  distances  not  previously  approached.  If  the 
mathematical  specifications  of  the  antenna  design 
are  unclear,  refer  to  an  electronic  manual  for  a 
picture.  Construction  of  the  antenna  is  not  difficult 
and  should  cost  no  more  than  twenty  dollars. 


Listing  4-11:  The  Yagi  Antenna  Design  Program 

5  CLS 

10  PRINT  "YAGI  ANTENNA  DESIGN  PROGRAM" 

20  INPUT  "INPUT  THE  FREQUENCY  FOR  WHICH  THE  ANTENNA  IS  TO  BE 

DESIGNED  IN  MEGAHERTZ  ",F 

30  PRINT: PRINT 

40  PRINT  "FOR" ;F; "MEGAHERTZ  THE  LENGTHS  OF  THE  ELEMENT  ARE:" 

50  PRINT  "ELEMENT  NUMBER" , "LENGTH  IN  INCHES" 

51  A=466.667/F:D=A*.05*A:B=11.52*A 
53  W=6*A:X=4.32*A:E=11.28*A 

55  Y=4.8*A:G=3.6*A:L=4.8*A 
57  C=11.4*A:Z=11.46*A 

59  R=5*W+X+G+Y+L+.333 

60  PRINT  "1",D 
70  PRINT  "2",B 
80  PRINT  "3",C 
90  PRINT  "4",E 
100  PRINT  "5" ,E 
110  PRINT  "6", A 


120 


120 

PRINT 

"7",Z 

130 

PRINT 

"8",E 

140 

PRINT 

n9",E 

150 

PRINT 

"10"fE 

160 

INPUT 

"PRESS  'ENTER'  TO 

CONTINUE 

n 
1 

A$ 

165 

PRINT: 

PRINT 

170 

PRINT 

"ELEMENT 

SPACING: 

If 

180 

PRINT 

"ELEMENT 

NUMBER: " 

,  "SPACING 

IN  INCHES:" 

190 

PRINT 

-1-2", L 

200 

PRINT 

"2-3", X 

210 

PRINT 

"3-4", W 

220 

PRINT 

"4-5", W 

230 

PRINT 

"5-6",W 

240 

PRINT 

"6-7", Y 

250 

PRINT 

"7-8", Y 

260 

PRINT 

"8-9", W 

270 

PRINT 

"9-10", W 

280 

PRINT 

"THE  BOOM  IS";C;" 

INCHES 

LONG 

(" 

■C/12;"FEET  LONG)" 

290 

END 

Decibel  conversion  and  voltage  to  dBm 
conversion.  Voltage  ratio  in  Decibels  is  given  by 


NriR=20  1ogin(E      /EIN) 


OUT 


where  E„ 


output  voltage 


E       =  input  voltage 

Such  computations  would  be  helpful  to  the  serious 
audiophile.  Also  of  interest  to  the  audiophile  would 
be  a  formula  used  to  compute  the  inductance  of  a 
straight  wound  speaker  wire: 

L  =  .0021  [2. 303  lo^  (41/d)-.75] 

where  L  =  inductance  (jiH.) 

d  =  diameter  of  wire  (cm) 
1  =  length  of  conductor  (cm) 

Evaluation  routine  for  a  program  of 
Boolean  function.  AND,  OR,  NOT,  and  the  other 
logic  statements  could  be  evaluated  as  a  program; 
the  circuit  status  at  each  step  would  be  outputted. 

Ohm's  law  calculation.  A  computer  can  be 
used  to  determine  the  unknown  value. 

E  =IR 


where  R  =  resistance  (ohms) 
E  =  voltage 
I  =  current 

Resistor  or  capacitor  color  codes.  An  ideal 
program  for  the  novice  in  electronics  would  output 
the  value  for  a  resistor  or  capacitor  given  the  color 
from  a  component. 

Inductance  Bridge  calculation.  Given  this 
design, 


if  any  three  values  are  known  the  fourth  may  be 
calculated: 


=  LL/L 

2     3        2 

=  hWh 

= wh 
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Listing  4-12:  The  RL  Equivalent  Impedance  Program 

90  CLS 

100  PRINT  "RL  EQUIVALENT  IMPEDANCE" 

110  PRINT  "ANSWERS  A  QUESTION  SUCH  AS  'WHAT  IS  THE  EQUIVALENT 

IMPEDANCE  OF   " 

120  PRINT  "300  OHM  RESISTOR  AND  A  30  MILLIHENRY  INDUCTOR  AT  A 

FREQUENCY  OF" 

130  PRINT  "2000  HERTZ?'" 

140  INPUT  "ENTER  RESISTANCE  IN  OHMS  ",R 

150  INPUT  "ENTER  INDUCTANCE  IN  MILLIHENRIES  ", IN 

160  INPUT  "ENTER  FREQUENCY  ",FR 

170  EQ=(2*3.141582*FR*IN*.001)*(1/(SIN(ATN((2*3.141592*FR*IN*.001) 

/R) ) ) ) 

180  PRINT  "THE  EQUIVALENT  IMPEDANCE=" ;EQ 

190  INPUT  "PRESS  ENTER  TO  END",A$:END 


RL  Equivalent  Impedance  Calculation,  states  of  nodes  will  be  throughout  the  circuit  fol- 
The  program  in  Listing  4-12  will  calculate  equiva-  lowing  all  logic  "decisions."  Essentially,  this  pro- 
lent  impedances.  gram  allows  you  to  design  and  test  a  logic  circuit 

A/C  voltage  divider  calculation.  The  pro-  without  breadboarding  it. 

gram  in  Listing  4-13  will  calculate  the  modules  and  The  program  recognizes  the  following  gates: 

phase  of  the  angular  frequencies  you  enter.  AND,  OR,  INV,  NAND,  exclusive  OR  (abbreviated 

Logic  circuit  analysis.  The  purpose  of  the  XOR),  and  exclusive  NOR  (abbreviated  XNOR);  up 

program  in  Listing  4-14  is  to  simulate  the  operation  to  64  gates  and  255  nodes  may  be  used  in  one 

of  a  simple  logic  circuit.  The  circuitry  (gates  and  circuit.  To  begin,  the  program  will  allow  you  to 

connecting  lines  or  nodes)  is  described  to  the  com-  input  a  circuit;  answer  1  for  a  new  circuit  to  the  first 

puter  along  with  the  input  states  to  the  circuit  (on  question.  Next,  the  program  will  request  a  label  for 

and  off  are  represented  as  1  and  0  respectively),  the  first  gate,  which  may  be  any  gate  in  the  circuit. 

Next,  the  program  determines  what  the  resultant  This  label  is  simply  a  distinguishing  number  (any 


Listing  4-13:  The  A/C  Voltage  Divider  Program 

90  CLS 

100  PRINT  "A/C  VOLTAGE  DIVIDER  CALCULATIONS" 

110  PRINT  "DETERMINES  THE  MODULUS  AND  PHASE" 

120  INPUT  "ENTER  THE  ANGULAR  FREQUENCY  " ,A 

130  R1=1000000!:R2=0: 11=0: 12=1/ (A*. 000001) 

140  R= (R2*(R1+R2) +12* ( 11+12)/ (R1+R2) * (Rl+R2)+( 11+12)* (11+12)) 

150  I=(-R2* (11+12) +(R1+R1)*I2)/((R1+R1)*(R1+R1)+(I1+I2)* (11+12)) 

160  C=SQR(R*R+I*I) 

170  D=180*ATN(I/R)/3. 14159 

180  PRINT  "ANGULAR  FREQUENCY" , "MODULUS" , "PHASE" 

190  PRINT  A,,C,D 

200  PRINT 

210  INPUT  "CALULATE  ANOTHER  (Y/N)";A$:IF  A$="Y"  OR  A$="y"  THEN  GO 

TO  120 

220  END 
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number)  you  want  for  the  gate.  Now,  input  the  gate 
type  AND,  OR,  etc.),  and  then  input  the  identifying 
nodes  connected  to  the  gate  (first  the  output  node 
and  then  the  input  nodes).  For  example,  to  describe 
the  illustrated  circuit,  the  following  sequence  could 
be  used: 


I>t^D>- 


SELECT: 
CIRCUIT  ?1 


1)  NEW  CIRCUIT        2)  OLD 


ENTER  THE  LABEL?  1 
ENTER  THE  GATE?  NOR 
ENTER  THE  NODE?3 
ENTER  THE  NODE?l 
ENTER  THE  NODE?2 
ENTER  THE  NODE?0 

(0  is  used  here  to  mean  go  to  next  gate) 

ENTER  THE  LABEL?2 


ENTER  THE  GATE?INV 
ENTER  THE  NODE?5 
ENTER  THE  NODE?  5 
ENTER  THE  NODE?3 
ENTER  THE  NODE?0 

ENTER  THE  LABEL?3 
ENTER  THE  GATE?NAND 
ENTER  THE  NODE?6 
ENTER  THE  NODE?5 
ENTER  THE  NODE?3 
ENTER  THE  NODE?0 

Remember  to  enter  the  output  node  for  each  gate 
first,  followed  by  the  input  nodes. 

After  describing  the  circuit,  the  logic  states  of 
various  nodes  will  be  described.  Simply  type  the 
number  of  the  node  and  its  initial  state  (1  or  0). 
Usually,  only  the  input  nodes  are  described. 

Finally,  the  program  analyzes  the  operation  of 
the  circuit,  outputting  the  state  of  each  node  after 
the  circuit  has  been  completed.  The  circuit  is 
analyzed  according  to  standard  logic  tables.  In  this 
manner,  the  professional  or  hobbyist  can  test  cir- 
cuit operation  without  breadboarding. 


Listing  4-14:  The  Logic  Circuit  Analysis  Program 

10 

REM  LDSIC  CIRCUIT  ANALYSIS  PROGRAM 

30 

DIM  F  (3000) 

40 

FOR  X=1T08 

50 

READ  X(X) 

60 

NEXT  XJREAD  AL,A2 

65 

A<9)=25 

70 

B*="AND  OR  IIW  NANDNOR  XOR  XNOR" 

80 

PRINT 

90 

PRINT  "SELECT: 1) ENTER  A  CIRCUIT" 

100 

PRINT"      2) ENTER  SPECIFIED  STATES 

FOR 

NODES" 

110 

PRINT"      3) ANALYZE  CIRCUIT  OPERATION" 

120 

PRINT"      4) OUTPUT  THE  STATES  OF  NODES' 

' 

130 

INPUT  "     5) OUTPUT  THE  CIRCUIT"; A3 

140 

ON  A3  SOTO  150,350,500,1300,1500 

150 

INPUT  "SELECT."  1 )  NEW  CIRCUIT,  2)  OLD 

CIRCUIT"; X 

155 

IF  X=2  THEN  190 

160 

FOR  A4=S  TO  511 

170 

F(A2+A4)=0 

ISO 

NEXT  A4 

190 

PRINT 
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200  INPUT  "ENTER  THE  LABEL" 5 A5: A5=S*A5 

205  IF  A5=<0  THEN  SO 

210  FOR  A4=0  TO  7 

220  F(A5+A4+A2)=0 

230  NEXT  A4:  A6=0 

240  INPUT  "ENTER  THE  BATE'S'W* 

250  IF  W$="REDO"  THEN  190 

260  IF  W*="AND"  THEN  A6=l 

261  IF  W*="OR"  THEN  A6=2 

262  IF  W$="INV"  THEN  A6=3 

263  IF  W*="NAND"  THEN  A6=4 

264  IF  W*="NOR"  THEN  A6=5 

265  IF  W*="XOR"  THEN  A6=6 

266  IF  W*="XNOR"  THEN  A6=7 
270  IF  A6=0  THEN  240 

300  F(A2+A5)=A6:A5=A5+1 

310  INPUT  "ENTER  THE  N0DE";A6 

320  IF  A6O0THEN  300  ELSE  200 

350  INPUT  "SELECT:  1 ) REDO  OR  BEBIN  2) CONTINUE": 

360  IF  X=2  THEN  400 

370  PRINT: FOR  A4=l  TO  255 

380  F(A1+A4)=255 

390  NEXT  A4 

400  INPUT  "ENTER  THE  N0DE";A6 

405  IF  A6<=0  THEN  80 

410  INPUT  "ENTER  THE  STATE" 5 A7 

420  F(A1+A6)=A7 

430  BOTO  400 

500  A8=0 

520  A8=A8+l:PRINT"N0.  "  ;  AS 

525  A9=0 

530  FOR  A4=l  TO  63 

540  A6=F(A4*8+A2> 

545  IF  A6=0  THEN  950 

550  ON  A6  GOTO  600,650,700,750,800,850,900 

600  B=0:  GOSUB  1180 

610  GOTO  920 

650  B=l:  GOSUB  1180 

660  G0T0920 

700  B 1 =F ( A 1 +F ( A2+2+8* A4 ) ) 

710  GOSUB  980 

720  GOTO  920 

750  B=0:  GOSUB  1180 

760  GOSUB  980 

770  GOTO  92Q 

800  B=l:  GOSUB  1180 

810  GOSUB  980 

820  GOTO  920 

850  GOSUB  1110 

860  GOTO  920 

900  GOSUB  1110 

910  GOSUB  980 

920  IF  B1=F<A1+F(8*A4+1+A2) )  THEN  950 
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930  A9=l 

940  F(A1+F(A2+8*A4+1) )=B1 

950  NEXT  A4 

960  IF  A9=1THEN  520 

970  GOTO  SO 

980  IF  B1>1  THEN  1000 

990  EU=l-Bi: RETURN 

1 000 

B 1=257  -Bl: RETURN 

1110 

B2=F<Al+F(8*A4+2+A2> > 

1120 

B3=F  <  A 1 +F  < 8*A4+3+A2 ) ) 

1130 

IF  B2O0  AND  BOO  THEN  1140  ELSE  B1=B2+B3: RETURN 

1140 

IF  B2-1O0  AND  B3-1O0  THEN  1150  ELSE  B1=B3*B2:  GOSUB  980 

1145 

RETURN 

1150 

Bl  =  l 

1160 

IF  B3=B2  THEN  B1=0 

1170 

RETURN 

11 80 

Bl=l-B 

1190 

FOR  B4=2  TO  7 

1200 

B2=F(8*A4+B4+A2) 

1210 

IF  B2=0  THEN  1260 

1220 

B5=F(B2+A1) 

1230 

IF  B50B  THEN  1240  ELSE  B1=B:  RETURN 

1240 

IF  B1+B50257  THEN  1250  ELSE  B1=B:  RETURN 

1250 

IF  B5=l-B  THEN  1260  ELSE  B1=B5 

1260 

NEXT  B4 

1270 

RETURN 

1300 

A9=l 

1310 

FOR  A4=l  TO  255 

1320 

IF  F<A4+A1>>1  THEN  1400 

1 330 

PRINT  A45  ": "5F(A4+A1) 

1400 

NEXT  A4 

1410 

PRINT 

1420 

GOTO  90 

1500 

FOR  A4=l  TO  63 

1510 

A6=F(8*A4+A2) 

1520 

IF  A6=0  THEN  1700 

1530 

PRINT  A4j  TAB<4) ; 

1540 

A9=10:  PRINT  MID*(B*,A6*4-3,4)  ", 

1550 

FOR  B4=l  TO  7 

1560 

A6=F(8*A4+A2+B4) 

1570 

IF  A6=0  THEN  1610 

1580 

PRINT  TABCA9) 5A6; 

1590 

A9=4+A9 

1600 

NEXT  B4 

1610 

PRINT 

1700 

NEXT  A4 

1710 

GOTO  90 

2000 

DATA  1,4,6,9,13,16,19,23 

2001 

DATA  768, 1025 

Additional  applications  for  electrical  en-     other  areas  in  which  the  microcomputer  can  make 
gineers.  The  following  list  includes  a  number  of    the  lives  of  those  who  work  with  electricity  easier. 
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Transistor  configuration  conversion 

Resistive  attenuator  design 

Smith  chart  conversions 

Phase  shift  oscillator  design 

Dc  bias  analysis 

Waveform  limits  determination 

Plotting  of  waveforms 

Plate  resistance/transconductance  calculations 

Gauss  calculations 

Reactance  chart  calculations 

Design  of  controlled  rectifier  circuits 

Integrated  circuit  current-source  design 

Solution  of  resistive  networks 

Rf  amplifier  analysis 

Bipolar  junction  transistor  analysis 

Complex  matrix  calculations  as  used  in  electrical 

engineering 

Wheatstone  bridge  design 


Civil  Engineering 

Civil  engineers  will  find  small  computers  use- 
ful for  performing  the  following  functions. 

•  Moment  of  inertia  calculation 

•  Vector  statics 

•  Section  properties 

•  Stress  on  an  element  or  beam 

•  Static  equilibrium  about  a  point 

Chemical  Engineering 

Chemical  engineers  can  use  small  computers, 
for  the  following: 

•  Ideal  gas  equation  of  state 


•  Conservation  of  energy  calculations 

•  Heat  exchanger  analysis 

•  Curve  fitting 

•  Hydrocarbon  combustion  calculations 

Machine  Design 

Machine  designers  can  use  computers  to  do 
the  following: 

•  Constant  acceleration  calculations,  relation  to 
time  and  velocity. 

•  Kinetic  energy  determination 

•  Critical  shaft  speed  calculation 

•  Cam  design  functions 

•  Gear  and  spring  calculations/design 

•  RPM/torque/power  computation 

•  Tachometer/dwell  meter  calculation:  your  os- 
cilloscope can  be  converted  into  a  tachometer  and 
dwell  meter  in  conjunction  with  your  computer. 
The  following  information  must  be  input  to  the 
computer  to  determine  engine  RPM  and  dwell 
angle: 

Number  of  cylinders  in  the  engine 

Interval  in  milliseconds  for  open  ignition 

points 

Interval  in  milliseconds  for  closed  ignition 

points 
Factors  a  and  b  are  determined  using  the  oscillo- 
scope. (RPM  may  also  be  calculated  using  the  fac- 
tors of  tire  diameter,  gearratio,  and  vehicle  speed.) 


a. 
b. 

c. 


ignition  pulse  frequency  = 


RPM  x  No.  Cylinders 
120 
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Chapter  5 


Educational  Applications 


One  of  the  most  important  uses  for  a  personal  com- 
puter is  certainly  education.  The  acronym  CAI, 
which  stands  for  Computer  Assisted  Instruction,  is 
often  used.  Not  only  can  the  computer  serve  as  a 
drill  and  practice  machine  for  teaching  subjects 
ranging  from  the  alphabet  to  Schrodinger  wave 
equations,  but  it  can  teach  the  fundamentals  of  com- 
puter programming  and  prepare  the  learner  for  a 
career  and  for  the  computerized  future. 

Needless  to  say,  we  all  have  memories  of 
learning  addition  and  subtraction,  repeating  spell- 
ing words  until  we  spelled  them  correctly,  and 
memorizing  dates  of  important  historical  events. 
Most  of  us  considered  this  to  be  one  of  the  boring 
essentials  of  elementary  education,  and  our  atten- 
tion span  was  accordingly  short. 

With  the  addition  of  the  computer  to  education, 
this  is  no  longer  the  case.  Although  the  subject 
matter  has  not  changed,  the  method  of  drill  and 
practice  has  become  much  more  entertaining  with 
the  computer.  Countless  studies  have  shown  that 
computerized  education  makes  learning  more  in- 
teresting and  is  more  effective.  The  task  of  learning 


school  subjects  has  become  colorful,  indi- 
vidualized, and  in  some  cases  exciting.  The  stu- 
dents have  instant  feedback  from  the  computer  so 
that  they  know  whether  their  answers  are  right  or 
wrong  and  can  build  from  that  point;  this  kind  of 
immediate  feedback  has  been  shown  to  be  an  effec- 
tive learning  tool. 

Computer  programs  designed  for  drill  and 
practice  are  usually  capable  of  providing  questions 
at  various  levels  of  difficulty.  With  simple  multipli- 
cation, for  example,  problems  with  single  digit, 
double  digit,  or  even  triple  digit  (or  more)  multipli- 
cation can  be  provided.  In  this  way,  the  student 
learns  his  basic  multiplication  tables  before  tack- 
ling 472  x  952.  The  computer  can  either  randomly 
generate  these  problems  or  choose  them  from  a 
large  collection  stored  in  memory.  As  the  student 
masters  a  certain  number  of  problems  at  the  begin- 
ning level,  he  can  advance  at  his  own  pace  to  suc- 
ceeding levels.  If  he  encounters  difficulty  at  a  par- 
ticular level,  the  computer  provides  more  of  the 
same  kinds  of  problems  or  offers  help.  The  com- 
puter can  even  be  programmed  to  remember  what 
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level  a  student  has  achieved  and  can  begin  from  that 
point  the  next  time  he  uses  the  program. 

Each  time  the  student  answers  a  question,  the 
computer  informs  him  whether  the  answer  is  right 
or  wrong.  If  the  answer  is  correct,  the  student  can 
be  awarded  with  a  picture  of  a  smiling  face,  a  color- 
ful, animated  display,  or  an  encouraging  message.  If 
the  student  responds  incorrectly,  the  computer  of- 
fers a  gentle  correction,  which  may  be  humorous  to 
keep  the  learning  experience  enjoyable  rather  than 
painful. 

Computer  drill  and  practice  systems  have  been 
applied  to  every  educational  area  from  preschool  to 
college  level.  Some  programs  make  use  of  com- 
puter graphics  for  those  situations  in  which  "a  pic- 
ture is  worth  a  thousand  words. "  Newer  systems 
make  use  of  random-access  video  disc  players  in 
which  short  video  segments  can  be  selected  by  the 
computer. 

Certainly  one  of  the  best  ways  to  learn  about 
computer  operation  and  programming  is  to  pur- 
chase a  personal  computer.  Not  only  can  a  child 
learn  how  to  program  computers  to  do  simple  (or 
even  complex!)  tasks,  but  he  can  also  learn  how  to 
think  logically  and  how  to  draw  conclusions  based 
on  fact  and  analysis  rather  than  on  guesswork  or 
emotions.  To  be  able  to  define  and  analyze  a 
problem,  and  develop  a  set  of  computer  instructions 
to  solve  it  is  a  considerable  accomplishment  and  is 
certainly  applicable  in  many  areas  other  than  com- 
puter programming.  Children  and  adults  also  need 
to  become  familiar  with  computer  operation, 
capabilities,  and  programming  in  preparation  for 
our  increasingly  computerized  world. 

Caveat  emptor.  Software  publishers  have  dis- 
covered that  there's  no  surer  way  to  a  parent's 
pocketbook  than  to  sell  the  notion  that  using  a 
personal  computer  will  improve  a  child's  mind.  If 
you  intend  to  purchase  a  "professionally"  prepared 
program,  ask  for  a  demonstration  before  spending 
that  $30.  Beware  of  flimflam  floppies,  snakeoil,  and 
superhype.  You  may  want  to  consult  Software  Re- 
ports, which  evaluates  382  educational  programs  in 
20  subject  areas  in  terms  of  content,  ease  of  use, 
entertainment,  and  other  criteria.  It's  available 
from  many  computer  stores  and  by  mail  from  Allen- 


bach  Industries,  2101  Las  Palmas  Dr.,  Carlsbad, 
CA  92008.  Additionally,  many  of  the  popular  home 
computing  magazines  carry  regular  reviews  of  edu- 
cational software. 

APPLICATION  IDEAS 

The  educational  uses  for  personal  computers 
are  unlimited;  a  few  of  the  possible  ways  of  using 
the  computer  to  instruct  yourself,  your  children,  or 
your  friends  include  the  following.  You  may  wish  to 
incorporate  these  ideas  in  programs  that  you  can 
sell  to  others. 

•  Create  a  program  describing  how  to  program 
computers  in  BASIC  or  another  language  such  as 
assembly  language  or  FORTRAN,  etc.  with 
step-by-step  examples. 

•  Create  a  story  building  program  for  youngsters  in 
which  the  computer  randomly  selects  individual 
story  parts  and  combines  them  to  produce  a  dif- 
ferent story  each  time.  Questions  could  be  asked 
to  test  reading  comprehension,  grammar,  and 
writing  skills.  For  example,  the  program  could 
produce  a  personalized  story  for  a  child  using  his 
or  her  name.  Occasionally,  questions  such  as  this 
should  be  displayed: 

Johnny,  should  I  write  the  next  sentence  as 


or 


1.  "Johnny  and  I  went  to  the  park." 

2.  "I  and  Johnny  went  to  the  park." 


If  the  child  answers  correctly,  the  computer 
reply  could  be  "O.K.,  that's  correct,"  and  a 
wrong  answer  could  be  explained— "No  that's 
wrong.  The  person  who  is  talking  should  place 
the  "I"  last,  after  the  names  of  other  people. " 
•  Create  an  I.Q.  builder  program  to  familiarize 
people  with  the  types  of  questions  and  problem 
solving  methods  used  on  tests  such  as  the 
Scholastic  Aptitude  test,  Civil  Service  tests,  and 
the  American  College  Assessment  test.  Re- 
search has  shown  that  familiarization  with  the 
tests  can  improve  performance  considerably. 
Sample  questions  are  readily  available  in  test- 
preparation  books. 
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•  Create  a  future-potential  evaluation  program  de- 
signed to  quiz  high  school  or  college  students 
about  their  talents,  interests,  and  abilities.  The 
program  could  direct  them  toward  promising  oc- 
cupational careers  based  upon  this  information. 

•  Computerize  psychological  questionnaires, 
which  are  often  found  in  popular  magazines  and 
books  for  recreational  and  education  use.  Tests 
particulary  suited  for  computerization  are  those 
requiring  tedious  calculation  to  analyze.  For  in- 
stance, this  quiz  is  designed  to  test  your  "happi- 
ness quotient"  and  could  be  easily  computerized: 

Answer  each  question  as  true  or  false. 

1.  My  work  is  usually  fulfilling  or  in- 
teresting. 

2.  I  have  a  good  ability  to  relax. 

3.  I  can  enjoy  happiness  in  little  things 
easily. 

4.  I  seldom  envy  other  people. 

5.  My  moods  have  great  fluctuation. 

6.  I  have  a  great  desire  to  change  either 
my  location,  family  situation,  or  job. 

7.  I  usually  sleep  well  and  don't  feel  tired 
in  the  morning. 

8.  I  periodically  "blow  my  top"  without 
knowing  the  real  reason. 

9.  I  am  usually  a  pessimistic  person. 

10.  I  cannot  have  happiness  without  others 
being  around  me. 


Scoring: 

Start  with  zero,  add  one  point  for  each  true 
answer  to  questions  1,  2,  3,  4,  7  and  add  one  point 
for  each  false  answer  to  questions  5,  6,  8,  9,  10. 
Multiply  the  total  by  10  to  determine  percentage 
happiness  (average  score  is  approximately  50). 

An  ambitious  programmer  could  program 
the  computer  to  print  out  an  analysis  of  the  sub- 
ject based  on  his  answers.  Such  a  program  would 
make  use  of  stock  phrases  to  be  used  for  many 
possible  combinations  of  answers  and  could  read 
like  this: 

If  you  don't  derive  much  pleasure  from  little 
things  or  if  you  regularly  lose  your  temper  (3  and 
8),  you  should  give  some  attention  to  your  at- 


titudes. Is  your  social  situation  the  cause  of  the 
trouble  (6)  or  is  it  your  job  situation  (1)?  Often, 
the  simple  recognition  of  this  difficulty  will  serve 
to  clear  up  the  situation.  The  person  who  is  truly 
happy  can  find  happiness  while  alone  (10)  and 
isn't  envious  (4).  The  moody  person  (5  and  9)  can 
often  benefit  from  the  advice  of  a  counselor. 
•  Create  a  spelling  program  that  would  allow  you  to 
input  and  store  words.  Words  would  be  randomly 
selected  and  flash  on  the  screen  from  .1  to  10 
seconds.  The  player  must  then  type  in  the  word 
from  memory. 

COMPUTER  ASSISTED  INSTRUCTION 

Computer  assisted  instruction  (CAT)  refers  to 
the  use  of  a  computer  as  a  teaching  device. 
Graphics,  text,  or  questions  can  be  presented  on 
the  screen.  The  simple  program  presented  is  de- 
signed to  ask  a  question  of  any  subject,  wait  for  a 
response  in  Listing  5-1,  determine  whether  or  not 
the  answer  was  correct,  and  keep  track  of  progress. 
Two  incorrect  answers  are  allowed  before  the  cor- 
rect answer  is  given;  change  line  100  if  this  is  not 
desired. 

Sample  data  for  a  quiz  about  computers  could 
be  as  follows: 

300  DATA  IS  YOUR  COMPUTER  CON- 
SIDERED A  MICROCOMPUTER  OR  A 
MINICOMPUTER,  MICROCOMPUTER 

310  DATA  WHAT  DOES  CPU  STAND  FOR, 
CENTRAL  PROCESSING  UNIT 

The  question  comes  first  in  the  DATA  statements 
and  is  immediately  followed  by  a  comma  and  the 
answer. 

COMPUTER  TUTOR 

You  can  use  your  computer  to  assist  you  in  the 
memorization  of  lists,  vocabulary  words,  and  other 
types  of  abstract  information.  For  instance,  the 
computer  could  quiz  you  in  flashcard  fashion  from  a 
list  of  vocabulary  words,  displaying  each 
randomly-selected  word  individually.  Once  you 
have  glanced  at  a  word,  and  attempted  to  recite  the 
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Listing  5-1:  General  CAI  Program 


1  REM  GENERAL  CAI  PROGRAM-QUESTIONS  AND  ANSWERS  ARE  CONTAINED 

2  REM  IN  THE  DATA  STATEMENTS 

3  PRINT  "CAI-  TO  STOP  AT  ANY  POINT  TYPE  'STOP'  AS  AN  ANSWER" 

5  Y=0:  Z=0:  N=25  "N=THE  NUMBER  OF  QUESTIONS  IN  THE  DATA  STATEMENTS 

1.0  CLEAR  1000  '  ADJUST  TO  YOUR  REQUIREMENTS 

15  FOR  A=l  TO  N:  Y=l 

20  READ  A*,  B* 

30  PRINT  A* 

40  INPUT  C*."  IF  C*="STOP"  THEN  150 

50  IF  C*=B*  THEN  NEXT  A  ELSE  100 

60  GOTO  150 

100  IF  Y=2  THEN  130 

110  PRINT  "INCORRECT  ANSWER. .. PLEASE  TRY  AGAIN" : Y=Y+i 

120  GOTO  40 

130. PRINT  "THE  ANSWER  WAS: "SPRINT  B*:Z=Z+1 

140  NEXT  A 

145  PRINT 

150  PRINT  "YOU  ANSWERED ","  A- Z;  "OR";  100-  <  (A-Z)  /N*100>  5  "X  QUESTIONS 

CORRECT" 

170  PRINT  "AND";  Z;  "  QUESTIONS  WERE  ANSWERED  INCORRECTLY" 

180  INPUT  "TRY  AGAIN";  A* 

190  IF  A*  =  "YES"  THEN  5 

200  END 

210  DATA  ' ENTER  YOUR  QUESTIONS  AND  ANSWERS  IN  THE  DATA  STATEMENTS 

STARTING  ON  LINE  210. 

220  DATA  TYPE  YOUR  QUESTION  FOLLOWED  BY  A  COMMA  AND  THE  CORRECT  AN 

SWER. 


definition  to  yourself  (or  to  the  computer),  press 
the  enter  or  return  key.  The  definition  could  be 
automatically  displayed  afterwards  at  this  point.  If 
you  did  not  know  the  correct  definition,  you  could 
type  "w"  (wrong)  to  indicate  this  mistake,  and  the 
word  and  definition  could  be  stored  for  review.  If 
you  were  right,  you  would  simply  press  the  enter  or 
return  key  and  the  next  word  would  be  displayed. 
Additionally,  the  number  and  percentage  of  correct 
answers  could  be  maintained. 

The  high  school  or  college  student  should  find 
computerized  quizzes  helpful  in  memorizing  such 
information  as 

1.  Historical  names,   dates,  and  places— 
presidents,  authors,  inventors  .  .  . 

2.  Parts  and  functions  of  the  anatomy 

3.  Mathematical  or  chemical  formulae 

4.  Verses  in  literature 


5.  Spellings  or  definitions  of  difficult  words 

6.  Trigonometric  identities 

7.  Geography— states,  capitals,  countries 

8.  Technical  and  scientific  terminology 

9.  Anglo/metric  unit  conversions 

EDUCATIONAL  SIMULATIONS 

Because  of  the  ability  of  the  computer  to  per- 
form calculations  rapidly,  they  are  well-suited  to  be 
used  for  educational  and  mathematical  simulations. 
Simulations  for  educating  young  people  include  the 
following: 

The  Manhattan  Indian  Problem.  This 
simulation  teaches  the  principle  of  compounded 
interest.  As  the  story  goes,  the  new  world  settlers 
paid  the  Indians  $24  for  the  entire  island  of  Man- 
hattan in  1626.  Today,  this  property  is  worth  mill- 
ions of  dollars.  But,  what  would  have  happened  if 
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the  settlers  had  deposited  the  $24  in  a  savings 
account  at  6%  interest  compounded  daily?  How 
much  would  that  account  be  worth  today?  A  com- 
puter generated  chart  listing  the  value  of  the  ac- 
count after  each  decade  would  serve  to  illustrate 
the  geometrical  growth  rate  involved  and  the  sur- 
prising answer  to  the  Manhattan  Indian  Problem. 
Use  the  formula  \  =  A(l+rf  where  A^  =  value 
acquired  (capital  +  interest),  A  =  original  invest- 
ment, v  =  interest  rate,  and  n  =  number  of  years. 
The  growth  of  an  amoeba  colony.  This 
simulation  simulates  the  growth  of  a  colony  of 
amoebas  (one-celled  organisms)  in  ajar  with  a  lim- 
ited food  supply.  The  reproduction  rate  will  cause 
the  colony  population  to  double  per  unit  time.  The 
formula  for  geometric  progressions  is 


S=a  x 


qn-l 
q-1 


where  S  =  sum,  a  =  the  first  term  (in  this  case  =  1), 
q  =  the  ratio  for  successive  values  (in  this  case  =  2 
because  the  colony  doubles  with  each  generation). 
However,  pollution  and  limited  food  supply  will 


decrease  colony  size  at  an  increasing  rate.  Other- 
wise, within  one  month's  time,  a  single  bacterium 
(about  one  tenth  of  a  millimeter  in  diameter)  divid- 
ing at  a  rate  of  five  times  a  day  would  produce  a 
volume  of  organisms  equal  to  one  million  times  the 
volume  of  the  sun,  provided  food  and  space  were 
available!  A  numerical  listing  or  plot  of  the  popula- 
tion versus  time  could  be  generated  by  the  compu- 
ter. Will  the  colony  reach  equilibrium  (a  stable 
state)?  Along  parallel  lines,  simulations  of  a  large 
scale  (for  example,  ecological  balance  in  a  forest) 
could  be  undertaken. 

The  laws  of  physics.  The  demonstration  of 
some  laws  of  physics  could  take  the  form  of  a 
graphical  illustrations  of  planetary  orbits,  acceler- 
ation due  to  gravity,  motion  of  a  pendulum,  and  so 
on. 

A  popular  physics  demonstration  program 
called  "The  Lunar  Landing  Simulation"  is  pre- 
sented in  Listing  5-2.  In  this  simulation,  the  learner 
must  control  the  flight  of  an  Apollo  moon  lander 
under  the  influence  of  gravity.  Limits  on  oxygen, 
food,  and  fuel  supply  must  be  contended  with  also. 
Similar  programs  have  been  written  to  graphically 
simulate  the  piloting  of  an  airplane. 


Listing  5-2:  The  Lunar  Landing  Simulation  Program 


"LUNAR  LANDING  SIMULATION" 


10 

PRINT 

20 

PRINT 

30 

PRINT 

40 

PRINT 

50 

INPUT 

60 

IF  A*= 

70 

PRINT 

75 

CLS 

80 

PRINT 

90 

PRINT 

100 

PRINT 

110 

PRINT 

120 

PRINT 

130 

PRINT 

140 

PRINT 

NG" 

150 

PRINT 

160 

PRINT 

170 

PRINT 

180 

PRINT 

"DO  YOU  WANT  INSTRUCTIONS?  (YES  OR  NO) " 

A$ 

"NO"  THEN  00300 


"YOU  ARE  LANDING  ON  THE  MOON  AND  HAVE  TAKEN  OVER  MANUAL" 
"CONTROL  500  FEET  ABOVE  A  GOOD  LANDING  SPOT.  YOU  HAVE  A" 

"DOWNWARD  VELOCITY  OF  50FT/SEC. " 

"120  UNITS  OF  FUEL  REMAIN." 

"HERE  ARE  THE  RULES  THAT  GOVERN  YOUR  SPACE  VEHICLE:" 
"(1) AFTER  EACH  SECOND,  THE  HEIGHT,  VELOCITY  AND  REMAINI 


"FUEL  WILL  BE  REPORTED:" 
PRINT  "(2)  AFTER  THE  REPORT,  A>?<  WILL  BE  TYPED.  ENTER  THE" 
PRINT  "NUMBER  OF  UNITS  OF  FUEL  YOU  WISH  TO  BURN  DURING  THE" 

"NEXT  SECOND.  EACH  UNIT  OF  FUEL  WILL  SLOW  YOUR  DESCENT' 


131 


190 

PRINT 

"BY  1FT/SEC." 

200 

PRINT 

"(3)  THE  MAXIMUM  THRUST  OF  YOUR  ENGINE  IS  30  FT/SEC/SEC 

OR" 

210 

PRINT 

"30  UNITS  OF  FUEL  PER  SECOND." 

215 

INPUT 

"PRESS  < ENTER>  TO  CONTINUE" 5 U9*: CLS 

220 

PRINT 

"(4)  WHEN  YOU  CONTACT  THE  LUNAR  SURFACE,  YOUR  DESCENT" 

230 

PRINT 

"ENGINE  WILL  AUTOMATICALLY  CUT  OFF  AND  YOU  WILL  BE" 

240 

PRINT 

"GIVEN  A  REPORT  OF  YOUR  LANDING  SPEED  AND  REMAINING" 

250 

PRINT 

"FUEL. " 

260 

PRINT 

"(5)  IF  YOU  RUN  OUT  OF  FUEL,  THE  >?<  WILL  NO  LONGER  APPE 

AR,  ' 

I 

270 

PRINT 

"BUT  YOUR  SECOND  BY  SECOND  REPORT  WILL  CONTINUE  UNTIL" 

280 

PRINT 

"YOU  CONTACT  THE  LUNAR  SURFACE. " 

290 

PRINT 

300 

PRINT 

"BEGIN  LANDING  PROCEDURE. " 

310 

PRINT 

"GOOD  LUCK" 

320 

PRINT 

330 

PRINT 

"SEC  FEET  SPEED  FUEL  PLOT  OF  DISTANCE" 

340 

PRINT 

350 

T=0 

360 

H=500 

370 

V=50 

380 

F=120 

390 

IF  B=0  THEN  00420 

400 

PRINT 

T",     TAB  (4)  5  H;  TAB  (12);  V?  TAB  (20)  5  F;  TAB  (29);  "I  "5 

410 

GOTO  00430 

420  PRINT 

T;  TAB<4) 5 H5 TAB ( 12) 5 V; TAB (20) ;F;TAB(29) ; " I " J  TAB (H/12+29) 

430 

INPUT 

B 

440 

IF  B<C 

)  THEN  600 

450 

IF  b>: 

?0  THEN  600 

460 

IF  B>F  THEN  00480 

470 

BOTO  00500 

480 

B=F 

500 

Vl=V-B+5 

510 

F=F-B 

520 

H=H-.5*(V+V1) 

530 

IF  H  < 

:=0  THEN  00620 

540 

T=T+1 

- 

550 

V=ABS(V) 

560 

IF  F>0  THEN  00390 

570 

IF  C=0  THEN  580 

580 

PRINT 

"*#*  OUT  OF  FUEL  ***" 

590 

PRINT 

t;  tab  (4) ;h;tab(12) ;v;tab(20) ;f;tab(29) ; "I";tab(H/12+29 

) 5 "**" 

600 

B=0 

610 

GOTO  00500 

620 

PRINT 

"#**  CONTACT  **" 

630 

H=H+5*(V+V1) 

640 

IF  8=5  THEN  00670 

650 

D=  < - V+SQR ( V* V+H* < 1 0-2*B ) ) ) / ( 5-B ) 

660 

GOTO  00680 

670 

D=H/V 
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680 

Vi=V+<5-B>*D 

690 

PRINT 

"TOUCHDOWN  AT"5T+D 

"SECONDS. " 

700 

PRINT 

"LAND INS  VELOCITY  = 

="5  VI;  "FT/SEC." 

710 

PRINT 

F;  "UNITS  OF  FUEL  REMAINING. " 

720 

IF  vi: 

KO  THEN  00750 

730 

PRINT 

"CONGRATULATIONS   A  PERFECT  LANDING" 

740 

PRINT 

"YOUR  LICENSE  WILL 

BE  RENEWED. 

LATER. " 

750 

IF  ABS  <V1><5  THEN  00780 

760 

PRINT 

"***SORRY,  BUT  YOU 

BLEW  IT***' 

770 

PRINT 

"APPROPRIATE  CONDOLENCES  WILL 

BE  SENT 

TO  YOUR  NEXT 

IN.  ■ 

780 

PRINT 

"ANOTHER  MISSION? 

790 

INPUT 

A* 

800 

IF  A*= 

"YES"  THEN  00300 

810 

PRINT 

820 

PRINT 

"CONTROL  OUT. " 

830 

PRINT 

840 

END 

OF    K 


Large  Scale  Simulations 

Simulations  on  a  large  scale  that  require  ex- 
tensive preparation  have  also  been  accomplished  on 
personal  computer.  These  include  the  following. 

The  acoustics  of  a  room.  The  acoustics  of  a 
room  could  be  mathematically  simulated  if  such 
parameters  as  the  dampening  effects  of  the  walls, 
the  shape  of  the  room  and  its  contents,  the  location 
of  the  sound  source  were  provided;  this  could  be 
useful  to  the  architect  or  stereo-listening  perfec- 
tionist. For  example,  in  designing  a  small  stereo 
listening  room  or  studio,  concentrations  of  standing 
waves  cause  unequal  resonances  in  different  spots 
within  the  room.  To  reduce  the  nonuniformity  of 
standing  waves  at  lower  frequencies,  room  propor- 
tions must  be  carefully  controlled  to  insure  op- 
timum diffusion  of  sound.  Standing  waves  in  a  rec- 
tangular room  are  governed  by  a  simple  equation 
that  could  be  modeled  on  your  personal  computer: 

f(n1(  nw,  h^)  =  (c/2)  [(n/1)2  +  (nw)2  +  (nVh)2]^ 

where  c=velocity  of  sound,  and  l=length, 
w=width,  h=height  of  the  room;  the  n's  are  the 
mode  numbers;  the  lowest  mode  number  (n=l) 
represents  the  lowest  frequency  resonance  ap- 
pearing, governed  by  the  dimension,  and  higher  n's 
represent  higher  frequency  resonances.  To  calcu- 


late the  frequency  of  a  standing  wave  along  one  axis 
of  the  room,  you  set  the  n  values  for  the  other  two 
axes  equal  to  zero.  For  example,  if  r^  =1  and  the 
others  equal  zero,  the  formula  will  give  the  lowest 
frequency  standing  wave  along  the  length  of  the 
room.  When  two  terms  are  non-zero,  the  standing 
waves  are  tangential.  To  obtain  uniformity,  the 
tangential  waves  are  most  desirable,  the  oblique 
waves  are  next,  and  the  axial  waves  are  least  desir- 
able. Thus,  by  using  this  equation,  you  can  adjust 
room  dimensions  to  provide  the  most  even  spacing 
of  axial  standing  waves  together  with  a  preference 
for  tangential  waves,  thereby  allowing  the  greatest 
uniformity  in  frequency. 

A  simulation  of  world  dynamics.  This 
simulation,  which  is  similar  to  Jay  Forrester's 
Limits  to  Growth  computer  simulation,  could  be 
accomplished  on  a  small  scale.  World  dynamics 
involves  the  interaction  of  population,  pollution, 
resources,  and  so  on  to  predict  future  outcomes. 

A  simulation  of  astronomical  and  physi- 
cal theories.  This  kind  of  simulation  could  possi- 
bly be  accomplished  with  a  personal  computer  sys- 
tem. Of  course,  the  memory  requirements  would 
be  very  large,  and  simulation  time  could  be  hun- 
dreds of  hours.  See  the  article  "Doing  Physics  with 
Microcomputers"  in  Physics  Today,  December 
1983,  pp.  25-28.  The  author  describes  a  Monte 
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Carlo  simulation  of  the  three  dimensional  Ising 
model  for  study  of  phase  transitions. 

A  simulation  of  automotive  fuel 
economy.  This  simulation  could  include  such  fac- 
tors as  fuel  injection,  fuel  additives,  pollution 
monitors,  etc. 

A  simulation  that  stages  your  own  World 
Series  or  Super  Bowl.  You  could  use  statistical 
techniques  to  simulate  a  game  or  series  of  games 
using  stars  whose  performances  are  based  on  their 
career  averages. 

ADDITIONAL  CAI  IDEAS 

Examples  of  teaching  programs  for  a  variety  of 
levels  are  listed  below. 

Elementary  math  flashcards.  Programs 
designed  to  increase  speed  and  efficiency  in  basic 
mathematics  (for  example,  addition  and  multiplica- 
tion) in  which  a  time  limit  would  be  set  for  answer- 
ing a  question. 

World  problems.  A  program  designed  to 
output  "random"  word  problems  in  mathematics  for 
practice. 

Rhymes  and  riddles.  In  this  learning  game, 
young  children  could  try  to  unscramble  words  to 
form  a  line  from  a  nursery  rhyme  or  an  answer  to  a 
riddle. 

Fractions.  A  drill  program  in  recognizing 
common  denominators  and  adding  and  multiplying 
fractions. 


Spell.  A  program  that  teaches  the  student  to 
recognize  commonly  misspelled  words. 

Roots.  A  guessing/learning  game  in  which  the 
student  must  guess  the  square  or  cube  root  of  a 
random  number. 

Kinema.  A  program  in  physics  that  helps  the 
student  learn  to  calculate  the  path  of  a  projectile. 

Gasvol.  A  plotting/calculating  program  that 
draws  pressure/volume  diagrams  of  a  gas  (chemis- 
try and  physics  use). 

Logic  reasoning.  This  program  tests  the 
student  on  conditional  statements,  hypotheses, 
conclusions,  deductions,  fallacies,  and  definitions. 

Balance.  A  drill  program  on  balancing  chemi- 
cal equations. 

Metric.  An  exercise  in  converting  between 
the  English  and  metric  systems  of  units. 

Bases.  A  demonstration  program  in  teaching 
how  to  do  conversions  from  one  numerical  base 
system  to  another. 

Multiplication  drill.  The  program  in  Listing 
5-3  randomly  generates  single  digit  multiplication 
problems  for  practice  in  memorizing  the  multipli- 
cation tables.  It  has  a  variety  of  randomly  selected 
responses  to  right  and  wrong  answers  and  also 
keeps  score.  Problems  that  are  answered  incor- 
rectly are  stored  and  asked  again  at  the  end  of  the 
quiz. 

Speed  reading/tachistoscope.  A  program, 
helps  such  as  the  one  in  Listing  5-4,  that  helps  you 


Listing  5-3:  The  Multiplication  Drill  Program 

10 

REM  MULTIPLICATION  DRILL  PROBRAM 

20 

PR I NT "MULT I PL I CAT I ON  DRILL-  WOULD  YOU  LIKE  INSTRUCTIONS" 5 

30 

INPUT  Z* 

40 

IF  Z*="NO"  THEN  90 

50 

PRINT"i'M  GO INS  TO  SEE  HOW  WELL  YOU 

CAN 

MULTIPLY. 

WHEN  I 

SHOW 

YOU" 

60 

PR I NT "A  PROBLEM,  TYPE  IN  THE  ANSWER 

AND 

THEN  HIT 

THE  'RETURN'  K 

EY 

II 

70 

PRINT"! 'LL  TELL  YOU  IF  YOU  ARE  RIBHT  AND  WILL  GIVE  YOU  A 

SCORE 

AFTER" 

80 

I NPUT "TEN  QUEST I ONS .  0 . K . " ; 2 * 

90 

A*="#########. ":B*= "########. " 

95 

X2=o:m=o:printa* 

100  FOR  X=l  TO  10:  X1=X1+1 
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110  A=RND<10>  :B=RNDUO) 

120  PRINT 

130  E=0: PR I NT "PROBLEM  #";X1 

135  BOSUB  140:  NEXT  X 

137  GOTO  420 

140  PRINT  USIN6  A*;  A 

150  PRINT"X"5 : PRINT  USIN6  B*$B 

160  C=A*B 

170  PRINT" " 

180  INPUT"=      "5D 

190  IF  D=C  THEN  300 

193  M=M+1:E=E+1 

195  IF  E=2  THEN  PR I NT "THE  ANSWER  WAS:";C:  GOTO  240 

200  PR I NT "YOU  GOOFED... TRY  AGAIN." 

220  GOTO  140 

240  F=F+1 

250  A<F)=A 

260  B(F)=B 

270  RETURN 

280  GOTO  420 

290  REM 

300  X2=X2+l:R=RND<5) 

310  ON  R  GOTO  320,340,360,380,400 

320  PRINT"RIGHT  ON ! ! ! " 

330  RETURN 

340  PRINT"FINE.  .  . " 

350  RETURN 

360  PR I NT "GOOD  WORK!!!" 

370  RETURN 

380  PR I NT "KEEP  IT  UP!" 

390  RETURN 

400  PRINT"EXCELLENT!" 

410  RETURN 

420  PRINT"YOUR  SCORE  IS  N0W";X2;"  CORRECT  AND";M/25"  ERRORS. 

<";lNT(100*X2/<X2+M/2>)  ;  •"/.) .  " 

430  INPUT"DO  YOU  WANT  TO  CONTINUE" ; Z* 

440  IF  Z*="YES"  THEN  500 

450  PR I NT "THANKS  FOR  PLAYING  WITH  ME..." 

460  END 

500  8=0 : FOR  X=l  TO  10 

510  IF  (A(X)>0)  OR  (B(X)>0)  THEN  G=G+1 

520  NEXT  X 

530  IF  G=0  THEN  100 

540  PRINT" I  DIDN'T  FORGET  YOU  MISSED  THESE:" 

550  FOR  X=l  TO  G 

560  A=A(X):  B=B<X) 

570  GOSUB  140 

580  NEXT  X 

590  GOTO  100 
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Listing  5-4:  The  Speed  Reading  Program 


10 

20 
30 
40 
50 
60 
70 
80 
90 
100 


READING  PROGRAM 

SET  N= INITIAL  TIMING  FACTOR 

THREE  DAY  BLOW,  BY  ERNEST  HEMINGWAY" 


REM  SPEED 
N=500:REM 
PR I NT "THE 
G0SUB1000 

PR I NT "THE  RAIN  STOPPED  AS  NICK  TURNED  INTO  THE  ROAD  " 
G0SUB1000 

PR I NT "THAT  WENT  UP  THROUGH  THE  ORCHARD.  THE  FRUIT  HAD  BEEN" 
G0SUB1000 

PR I NT "PICKED  AND  THE  FALL  WIND  BLEW  THROUGH  THE  BARE  TREES. 
GOSUB  1000 


110  PRINT"NICK  STOPPED  AND  PICKED  UP  A  WAGNER  APPLE  FROM  " 

120  GOSUB 1000 

130  PR I NT "BESIDE  THE  ROAD,  SHINY  IN  THE  BROWN  GRASS  FROM  THE" 

140  GOSUB 1000 

150  PR I NT "RAIN.  HE  PUT  THE  APPLE  IN  THE  POCKET  OF  HIS  MACKINAW" 

160  GOSUB 1000 

170  PR I NT "COAT. 

180  GOSUB 1000 

190  REM  CONTINUE  TO  INSERT  LINES  HERE  IN  THE  FASHION  ABOVE... 


400 

403 

405 

410 

1000 

1010 

1020 

1030 

1040 

1050 


N=N-50:REM  DECREASE  TIMING  FACTOR  AFTER  EACH  READ-THROUGH 

IFN<OTHEN  END 

PRINT"TIMING  FACT0R="5 N: F0RX=1T0500: NEXT  X 

GOTO  30: BEGIN  ANEW  WITH  FASTER  TIMING 
REM  THIS  SUBROUTINE  INSERTS  A  DELAY  BETWEEN  EACH 
REM  DEPENDING  ON  THE  VALUE  OF  THE  TIMING  FACTOR, 
FOR  X=l  TO  N 


LINE 
N 


NEXT  X 

REM  EXPERIMENT  WITH  YOUR 
REM  REASONABLE  VALUE  FDR 
1060  CLSrREM  COMMAND  TO  CLEAR 
1070  PRINT: PRINT: PRINT: PRINT: PRINT 
1080  RETURN 


COMPUTER  TO  DETERMINE 
N  IN  LINE  #20 
SCREEN 


learn  to  read  faster  could  be  easily  implemented  by 
using  a  timing  loop.  Lines  from  a  piece  of  literature 
could  be  stored  in  data  statements  and  flashed 
momentarily  on  the  screen;  only  one  line  at  one 
time  should  be  displayed.  The  timing  loop  is  simply 
a  BASIC  FOR-NEXT  loop  that  will  require  a 
specified  amount  of  time  to  be  executed  (for  exam- 
ple, FOR  X=l  TO  500:  NEXT  X  requires  approxi- 
mately 1  second  to  execute  with  some  forms  of 
BASIC).  The  amount  of  time  you  are  given  to  read 
each  line  should  be  gradually  decreased  until  a 
speed  of  several  hundred  words  (for  example  500) 
per  minute  is  obtained. 

A  tachistoscope  can  be  used  to  improve  your 


perception  and  short-term  memory.  Psychologist 
G.  Miller  reports  that  anyone  should  be  able  to  see 
from  five  to  nine  letters  in  any  given  brief  exposure, 
whether  1/100  of  a  second  long  or  Vt  a  second, 
which  shows  the  limitation  in  our  ability  to  perceive 
visual  information  in  brief  exposures.  In  addition, 
we  are  able  to  see  many  more  letters  displayed  by 
the  tachistoscope  if  they  form  a  familiar  word  in- 
stead of  an  unfamiliar  or  foreign  word.  A  tachisto- 
scope program  could  be  written  for  personal  con- 
firmation or  as  a  science  fair  project.  The  program 
could  offer  adjustable  speeds,  familiar  and  unfamil- 
iar words,  and  display  of  words  for  confirmation. 
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Chapter  6 


Hobby  Applications 


Your  personal  computer  can  make  hobbies,  from 
arts  and  crafts  to  photography  easier,  quicker,  and 
more  creative. 

THE  ARTS 

It  does  not  seem  possible  that  a  computer  can 
create  original  art  work  until  you  consider  the 
mathematical  basis  as  well  as  randomness  of  some 
art  forms.  Art  is  an  area  in  which  the  personal 
computer  can  be  used  in  many  different  ways— and 
many  of  these  ways  are  yet  undiscovered. 

The  Visual  Arts 

The  computer  can  serve  both  as  a  source  of 


inspiration  and  as  a  tool  for  the  artist  or  craftsper- 
son.  Below  are  some  of  the  areas  in  which  a  com- 
puter can  be  used. 

Mathematical  functions.  Plotting  or 
graphing  a  mathematical  function  can  often  produce 
interesting  geometrical  designs.  Color  terminals 
equipped  to  plot  a  grid  in  full  color,  each  color 
indicative  of  the  value  of  the  function  at  each  indi- 
vidual point,  produce  fantastic  geometries,  the  de- 
signs generated  can  be  used  in  knitting  or  embroi- 
dering, or  for  producing  a  geometrical  painting.  A 
plotter  or  graphic  pointer  may  be  used  for  output.  A 
standard  printer  may  be  used  with  the  demonstra- 
tion program  in  Listing  6-1,  which  creates  plots 
with  a  three-dimensional  appearance. 


Listing  6-1 :  The  Three  Dimensional  Plotter  Program 

5   CLS 

10  REM  '3  DIMENSIONAL1  PLOTTER 

20  REM  OTHER  FUNCTIONS  TO  TRY  INCLUD:  S* (COS (Z/16) ) °2 

30  REM  THE  SYMBOL  e  MEANS  EXPONENTIATION 

40  DEF  FNA(Z)=S*EXP(Z*-Z/100) 
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50  INPUT  "ENTER  SCALE  FACTOR  (TRY  ,30,)";S 

55  INPUT  "READ  PRINTER;  PRESS  ENTER  WHEN  READY  TO  PROCEED" ;A$ 

60  FOR  X=-S  TO  S  STEP  S/20:L=0 

70  Yl=5*INT(SQR(Se2-X*X)/5) 

80  FOR  Y=Y1  TO  -Yl  STEP  -S/6 

90  Z=INT(S-5+FNA(SQR(X*X+Y*Y) )-.7*Y) 

100  IF  Z>L  THEN  L=Z:LPRINT  TAB(Z)"+"; 

110  NEXT  Y 

120  LPRINT  "  " :NEXT  X:END 


Figure  6-1  shows  some  sample  output  from  the 
three-dimensional  plotter  program. 

Alteration  of  a  design.  A  given  design  (for 
example,  a  drawing  of  a  human  face  or  an  American 
flag,)  transformed  into  a  series  of  points  on  a  grid 
can  be  manipulated  using  a  mathematical  algorithm 
to  produce  "modern  art"  effects.  Additionally,  one 
design  may  be  gradually  transformed  into  another, 
through  a  series  of  plots,  producing  a  fascinating 
result  reminiscent  of  animation. 

Kaleidoscope.  A  kaleidoscopic  pattern  may 
be  produced  by  plotting  a  continuous  set  of  points 
that  wander  randomly  horizontally  and  vertically  in 
one  of  four  corners  on  the  screen.  The  other  three 
corners  are  plotted  by  "reflecting"  the  wandering 
line,  drawing  in  mirror-fashion.  An  example  is 
shown  in  Fig.  6-2. 


Random  art  patterns.  For  the  ultimate  in 
simplicity,  a  program  could  generate  random  num- 
bers that  in  turn  would  cause  graphics  characters  on 
the  screen  to  turn  on  or  off  or  would  control  a  pen 
plotter  in  "random- walk"  fashion.  This,  however, 
may  exceed  the  confines  of  what  is  considered  art. 
One  hobbyist  reports  using  his  computer  to  ran- 
domly combine  picture  elements  and  then  print 
"landscapes"  using  a  plotter.  Figure  6-3  shows  an 
image  produced  using  randomly  determined  ele- 
ments. 

A/D  converters.  Use  of  an  analog/digital 
converter  to  digitize  and  transform  real-world 
events  can  produce  interesting  results.  For  exam- 
ple, one  hobbyist  interfaced  a  human  dancer  to  his 
computer  by  applying  a  dozen  mercury  switches  to 
the  dancer's  body.  The  dancer's  movements  caused 
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Fig.  6-1 .  Sample  output  from  the  three-dimensional  plotter  program. 
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Fig.  6-2.  A  kaleidoscope  pattern. 

signals  for  the  computer.  The  computer,  in  turn, 
created  "choreographed  music"  from  the  signals. 

Anamorphic  art.  Anamorphic  images  are 
those  that  appear  distorted,  but  when  viewed  with  a 
special  device  or  from  a  unique  perspective  appear 
normal.  An  example  of  such  a  special  device  is  a 
cylindrical  mirror  placed  in  the  center  of  the  image. 
The  computer  may  be  used  to  transform  a  set  of 
points  describing  a  "normal"  image  into  an  anamor- 
phic equivalent.  For  examples  of  anamorphic  art, 
see  Leeman,  Fred.  Hidden  Images:  Games  of  Per- 
ception, Anamorphic  Art,  Illusion.  New  York:  Harry 
N.  Abrams,  Inc.,  1975.  Figure  6-4  shows  the  re- 
sults of  such  a  program. 

Crossword  poetry.  An  interesting 
"crossword"  of  the  words  from  a  poem  or  piece  of 
literature  may  be  created  by  the  computer.  A  pro/ 
gram  to  create  such  "art"  would  scan  each  word  and 
determine  how  that  word  could  fit  in  crossword 
the  switches  to  open  and  close,  producing  digital 


form  with  adjacent  words: 
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Fig.  6-3.  A  video  image  created  by  a  program  that  randomly  placed  lines  and  circles  of  various  sizes  on  the  screen  and  filled  in 
each  area  with  a  random  color  or  texture. 


Fig.  6-4.  "Computer  Curvilinear  Projection  -  Convex  and  Concave"  by  Ramon  Masters.  See  Computer  Graphics  and  Art, 
February,  1 978,  for  a  detailed  explanation  of  how  these  and  similar  images  can  be  created. 
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READ  AS  "Who  has  seen  the  wind? 
Neither  I  nor  you. 

But  when,  the  leaves  hang  trembling, 
The  wind  is  passing  through." 

Textile  patterns.  By  combining  the  video 
graphics  characters  found  on  many  personal  com- 
puters into  patterns,  a  textile  appearance  may  be 
created.  This  may  be  considered  art  in  itself  or  used 
as  a  model  for  a  tapestry  design,  a  simple  program 
could  select  five  graphics  characters  at  random  and 
then  printout  a  full  line  of  each  graphic  character. 
This  pattern  would  then  be  repeated;  surprisingly 
good  results  may  be  obtained.  A  more  sophisticated 
program  could  combine  different  graphics  charac- 
ters within  the  line  in  symmetric  fashion.  Similarly, 
new  quilting  patterns  could  be  designed 
mathematically.  A  sample  textile  pattern  program 
is  presented  in  Listing  6-2. 

Prespective  drawing  aid.  Given  a  set  of 
points  describing  the  (x,  y,  z)  dimensions  of  objects 
in  a  picture,  the  computer  could  use  matrix  ma- 
nipulations to  produce  a  new  set  of  points  describ- 
ing the  picture  from  another  perspective  or  view- 


point. Figure  6-5  shows  an  example.  Additionally,  if 
video  graphics  or  plotting  capabilities  are  available, 
the  new  picture  could  be  plotted.  Perspective 
transformations  are  useful  in  technical  illustration 
and  other  art  forms  as  well. 

As  an  example  of  the  perspective  transforma- 
tions that  can  be  accomplished  using  a  large  array  of 
points,  let  (x,  y)  be  a  coordinate  pair  under  the  "old" 
coordinate  system.  Let  (xe,  yfl)  be  the  center  coor- 
dinates of  the  new  system  rotated  through  angle  9  in 
relation  to  the  old  system.  The  new  coordinates  (x', 
y')  may  be  calculated  with  these  equations: 

x'  =  (x  -  x )  cos  0  +  (y-yfl)  sin    0 
y'  =  —  (x-x )  sin  0  +  (y-ye)  cos  6 

A  dimension  scaling  program  would  request 
the  largest  dimension  of  the  object  and  the  largest 
dimension  of  the  drawing  of  the  object;  the  scaling 
factor  is  the  ratio  of  these  values.  The  program 
would  eliminate  the  headaches  of  creating  a  scale 
drawing  by  multiplying  the  input  dimensions  of  the 
object  by  the  scaling  factor  to  arrive  at  the  scaled 
down  dimensions  for  the  drawing. 


Listing  6-2:  The  Textile  Generator  Program 

10  REM  COMPUTER  TEXTILE  GENERATOR 

20  REM  CREATES  RANDOM  "TEXTILE"  PATTERNS 

30  REM  FOR  OUTPUT  ON  A  VIDEO  SCREEN  OR 

40  REM  BRAPHIC  PRINTER.  REQUIRES  A  TVT 

50  REM  WHICH  HAS  BRAPHIC  CHARACTER  BLOCKS 

60  REM  ACCESSABLE  USING  'CHR*<X)' 

70  REM 

SO  RANDOM 

90  N=RND(9>+1 

100  FOR  X=l  TO  N 

110  A*(X)=CHR*(RND(62)+129) 

120  NEXT  X 

130  CLS' CLEARS  SCREEN 

140  FOR  M=l  TO  6 

150  FOR  X=l  TO  N 

160  FOR  Y=l  TO  64  'ADJUST  TO  YOUR  LINE  LENGTH 

170  PRINT  A*(X) j 

ISO  NEXT  Y 

190  NEXT  X 

200  NEXT  M 

210  BOTO  90 
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Fig.  6-5.  Examples  of  the  use  of  mathematical  algorithms  to  alter  drawings. 


Computer  as  sculptor.  One  hobbyist  has 
created  a  computer-controlled  router  that  can 
sculpt  material  in  accordance  with  a  set  of  pro- 
grammed points  (x,  y,  z).  The  computer  controls 
the  rotation  of  the  sculpturing  material  (y  axis)  and 
the  horizontal/vertical  (x  and  z  axes)  motion  of  the 
router  by  means  of  servomechanisms.  Eliminating 
one  axis,  the  computer  could  also  control  a  lathe  to 
produce  sculptured  furniture  legs  of  exacting  pro- 
portions, for  example. 

Computer  painting.  A  commercial 
computer-controlled  airbrush  system  is  being  used 


to  create  murals  from  photos  or  other  graphic  im- 
ages. The  image  is  digitized  (through  the  use  of  a 
TV  camera  and  A/D  converter)  and  then  painted 
with  much  larger  proportions  by  the  use  of  a  special 
x,  y  "plotting"  system,  which  uses  an  airbrush  in 
lieu  of  a  pen.  An  enterprising  hobbyist  could  con- 
struct such  a  system. 

Computer  posters.  Everyone  has  seen  the 
"computer  portraits"  popular  at  carnivals  and  shop- 
ping malls,  in  which  a  television  picture  of  a  subject 
is  digitized  and  output  on  a  line  printer.  One  hob- 
byist has  circumvented  the  expense  of  a  television 
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digitizer  by  taking  an  ordinary  photograph  and 
placing  a  fine  grid  over  it;  he  assigns  each  square  in 
the  grid  a  brightness  level  and  inputs  this  informa- 
tion. The  computer  prints  dark  characters  or  blocks 
for  the  squares  with  a  low  brightness  level  and  vice 
versa  for  squares  with  a  high  brightness.  Through 
this  tedious  and  time-consuming  process  he  creates 
computer  posters  and  protraits  without  the  expense 
of  a  television  camera  and  video  image 
digitizer. 

A  simple  silhouette  poster  may  be  created  by 
specifying  the  number  of  "X"  and  space  characters 
to  print  on  each  line  in  DATA  statements.  For 
example,  to  print  two  spaces,  one  "X,"  one  space, 
and  one  "X"  on  line  number  one,  you  could  create  a 
DATA  statement  that  read  DATA  LI,  S2,  XI,  SI, 
XI  and  use  the  LEFT$  function  to  read  the  first 
character  in  each  data  item.  The  computer  would 
then  print  the  decoded  representation  and  continue 
with  the  next  line.  The  advantage  to  this  method  is 
that  it  requires  less  than  the  use  of  verbatim  PRINT 
statements  would. 

The  Verbal  Arts 

What  usefulness  could  there  be  in  creating 
poems  by  computer?  Unlike  humans,  computers 
have  the  capability  of  being  "completely"  random. 
They  are  free  from  the  "inspirational"  selection  of 
words  when  composing  a  poem;  "composing  a 
poem;  "completely"  is  in  quotes  because  there  will 
always  be  some  bias  introduced  by  the  program- 
mer. A  computer-generated  poem  can  serve  as  a 
stimulus  for  the  human  poet.  He  can  elaborate  on 
the  poem  and  extract  inspirational  clues  in  com- 
posing his  own  poetic  works. 

One  crude  method  for  generating  computer 
poetry  makes  use  of  the  following  format  in  ran- 
domly selecting  words  from  large  lists  of  nouns, 
verbs,  adjectives,  definite  articles,  prepositions, 
conjunctions,  and  adverbs: 

TITLE:  Adjective  +  Noun 

FIRST  LINE:        Adjective  +  Noun  (plural)  + 

Adverb  +  Verb  (plural,  present 
tense)  +  Adjective  +  Noun 
(plural) 


SECOND  LINE:    Adjective  +  Noun  (plural)  + 
Verb  (plural,  present  tense)  + 
Adverb  +  Adjective  +  Noun 
(plural) 

THIRD  LINE:       Article  (definite,  such  as  the) 
+  Noun  (singular)  +  verb 
(singular,  present  tense)  + 
Preposition  +  Article  (definite) 
+  Adjective  +  Noun  (singular) 

FOURTH  LINE:   Noun  (plural)  +  Verb  (plural, 
present  tense)  +  Conjunction 
+  Article  (definite)  +  Noun 
(singular) 

To  ensure  some  continuity,  the  second  adjec- 
tive and  noun  of  the  first  line  may  be  repeated  as  the 
first  adjective  and  noun  of  the  second  line.  One 
computer-generated  poem  based  on  this  structure 
read: 

Clear  Spirits 

Warped  trunks  frailly  dwell  delicate  leaves 

Delicate  leaves  shudder  cunningly  intricate 

lines 

The  image  vanishes  to  the  sharp  second 

Bee  fly  against  the  cloud 

Computers  have  poetic  license  too! 

Along  similar  lines,  an  aphorism  generator 
could  create  aphorisms  ad  infinitum  using  the  form 

" is  the of " 

replacing  each  blank  with  a  randomly  selected 
noun.  The  underlying  philosophical  truism  is  up  to 
the  reader.  The  program  in  Listing  6-3  is  an  outline 
for  an  aphorism  generator;  you  supply  your  own  list 
of  nouns. 

The  Musical  Arts 

Within  the  field  of  music,  the  personal  com- 
puter can  be  used  in  a  number  of  different  areas. 
Some  of  these  are  listed  below. 

Music  education.  Possible  music  education 
applications  include  the  following: 

1.  A  graphic,  flashcard  style  quiz  that  could  dis- 
play notes  and  other  musical  notation  on  the 
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Listing  6-3:  The  Aphorism  Generator  Program 

10  REM  APHORISM  GENERATOR 

20  DIM  A$(50):REM  ADJUST  THE  DIMENSION  EQUAL  TO  THE  NUMBER  OF  WORDS 

IN  THE  DATA  STATEMENTS 

30  FOR  X=l  TO  50: READ  A$(X):NEXT 

40  PRINT  A$(50*RND(0)) ;  "IS  THE  " ;A$ (50*RND(0) ) ; "  OF  " ;A$ (50*RND(0 

)) 

50  GOTO  40 

60  REM  ADD  40  NOUNS  OF  YOUR  CHOICE  TO  THE  DATA  STATEMENTS  BELOW 

70  DATA  SUCCESS,  AGONY,  MONEY,  DEATH,  LOVE 

80  DATA  REWARD,  NAIVETE,  FATHER,  BEAUTY,  SEX 


scale  for  identification  as  practice  reading 
music. 

2.  A  quiz  on  pronunciations  and  definitions  of 
music  terminology  (for  example,  andante, 
diatonic,  and  staccato). 

3.  A  musical  staff  drill.  A  graphic  keyboard  and 
staff  could  be  presented,  and  the  computer 
could  select  the  note  on  the  staff  corresponding 
to  the  key  that  is  "pressed."  Key  signature 
drills  could  be  done  in  a  similar  manner. 

4.  A  basic  ear-training  skills  program.  A  com- 
puter capable  of  producing  musical  tones  could 
quiz  students  on  recognition  of  pitches,  inter- 
vals, chords  (major,  augmented,  diminished, 
and  minor),  and  scales  (major,  natural  minor, 
harmonic  minor,  and  melodic  minor)  and  scales 
(major,  natural  minor,  harmonic  minor, 
melodic  minor,  whole  tone,  and  chromatic). 

5.  A  name  the  tune  game.  A  computer-produced 
familiar  tune  can  teach  identification  by  sound 
of  the  degrees  of  the  scale,  using  solfeggio  syl- 
lables or  scale  degree  numbers. 

6.  A  wrong  note  program.  Pitch  error-detection 
can  be  practiced  within  various  combinations  of 
four-voiced  chord  types.  Following  the  selec- 
tion of  a  chord  type,  the  computer  can  visually 
represent  the  chord  and  play  the  sound  with 
one  incorrect  note.  The  student  must  identify 
the  wrong  voice  and  its  corresponding  pitch. 

7.  Harmony  drills.  Computer-produced  aural 
diatonic  chord  progressions  may  be  taught  on 
various  levels  of  difficulty. 

8.  Write  that  tune  game.  The  computer  plays  a 


random  or  preprogrammed  series  of  notes  that 
the  student  must  then  reproduce  on  a  video 
staff  or  on  an  interfaced  musical  keyboard. 
9.  Chord  progressions  practice.  Students  may 
predict  chord  progressions  and  receive  feed- 
back from  the  computer  and  subsequent  visual 
and/or  aural  output. 

10.  Guitar  chords  practice.  Students  can  practice 
finger  placement  required  to  produce  guitar 
chords,  with  visual/aural  feedback. 

11.  Famous  composers  and  their  music  quiz.  A 
quiz-style  program  could  teach  famous  com- 
poser's names,  pronunciations,  and  composi- 
tions with  the  aural  output  of  excerpts  from 
those  works. 

12.  Transposition  practice.  The  student  is  pre- 
sented with  a  short  melody  to  transpose  to  a 
randomly-selected  key.  The  computer  verifies 
correct  transposition. 

13.  Tuner  program.  Two  computer-produced 
tones  (separated  by  less  than  one  half-step)  are 
tuned  to  match  each  other  by  the  student,  who 
may  select  an  increase  or  decrease  in  one  of 
the  tones. 

14.  Rhythm  practice.  The  student  could  practice 
playing  rhythm  patterns  on  a  keyboard.  The 
computer  can  analyze  them  for  accuracy,  play 
the  passage  the  way  it  should  be  played,  and 
even  demonstrate  how  the  student's  response 
differed  from  the  expected  response. 

15.  Composition  packages.  This  program,  given 
the  notes  of  a  composition,  can  display  the 
piece  in  standard  musical  notation  and  actually 
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play  it.  The  student  can  experiment  with 
tempo,  timbre,  and  musical  envelopes.  Having 
control  of  timbre  and  musical  envelope  allows 
composition  of  a  piece  performed  by  three 
voices  resembling  the  clarinet,  flute,  and  oboe 
and  demonstrates  the  interaction  between 
voices. 

Music  composition.  In  the  past,  computer 
programs  designed  to  compose  music  were  based 
more  upon  random  numbers  than  musical  princi- 
ples. Thus,  the  songs  that  were  produced  could 
only  be  compared  to  a  child  randomly  hitting  piano 
keys.  Lately,  progress  has  been  made  in  developing 
more  complex  programs  that  adhere  to  the  "rules  of 
thumb"  for  composing  particular  types  of  music. 
One  program,  which  used  the  following  rules,  was 
somewhat  successful  in  composing  "pop"  music. 

Basic  melody  requirements: 

1.  The  first  note  must  be  other  than  a  fourth,  a 
flatted  fifth,  a  minor  second,  or  a  ninth. 


2.  An  ascending  minor  second  progresses  to  a 
second,  and  a  descending  minor  second  pro- 
gresses to  the  tonic;  an  ascending  flatted  fifth 
progresses  to  a  fifth,  and  a  descending  fifth 
progresses  to  a  fourth. 

3.  Not  more  than  five  notes  in  descension  or  as- 
cension are  allowed  without  a  complementary 
movement. 

4.  The  melody  should  consist  of  35  to  60  notes. 

5.  The  release  begins  on  a  subdominant  major 
note. 

6.  Melodic  leaps  must  not  be  larger  than  a  major 
tenth. 

7.  A  melodic  leap  may  not  be  followed  by  another 
melodic  leap  larger  than  a  major  sixth. 

8.  No  more  than  three  consecutive  melodic  leaps 
are  allowed. 

9.  No  ascending  or  descending  passage  may  con- 
tain more  than  one  melodic  leap. 

One  of  the  songs  composed  is  represented  as 
/C/F*DA/G8C:8CF"G/C*AF8G8/G**VDEF"G/ 
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Fig.  6-6.  An  example  of  music 


generated  by  a  computer. 
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ABC:  B8C:  8/C*B8C:  8/D*C/F*DA/G8C:  8C:  F"G/ 
G*AF8G8/G**VDEF"G/ABC:B8C;8/C:*A*/F*** 
/A**C8CD/FE*/B**C:8EF"/G*** 

The  corresponding  music  is  shown  in  Fig.  6-6. 

Rather  than  subjecting  purely  random  notes  to 
these  compositional  rules,  a  probability  distribu- 
tion used  in  conjunction  with  a  random  number 
generator  could  help  to  produce  notes  that  would 
more  likely  fit  the  rules.  The  chart  in  Table  6-1 
illustrates  how  this  might  be  done.  The  name  for 
each  interval  is  given  along  with  the  corresponding 
number  of  notes  on  a  keyboard.  The  next  column 
gives  a  probability  for  selection  of  that  interval, 
which  may  be  changed  according  to  the  composer's 
wishes.  The  following  two  columns  give  the  range 
of  numbers,  generated  by  a  random  number 
generator,  that  corresponds  to  the  probability  of 
selecting  a  given  +  or  -  interval.  In  this  way  a 
random  number  generator  selecting  numbers  from 
1-100  can  provide  a  given  probability  distribution  of 
notes. 

To  further  ensure  the  choice  of  "good"  notes, 
second  or  third-order  probability  distributions 
could  be  specified;  that  is,  for  each  possible  pre- 
ceding interval  (10),  a  probability  distribution 
would  exist  for  the  purpose  of  choosing  a  particular 
value  for  the  next  interval.  For  instance,  in  tradi- 
tional music,  a  tritone  is  usually  followed  by  a  step- 


wise interval  (  whole  or  half  step);  thus,  the  sec- 
ond-order probability  distribution  for  a  tritone 
would  be  heavily  weighted  toward  a  stepwise  inter- 
val in  selecting  the  next  note  of  the  composition. 

The  music  demonstration  program  in  Listing 
6-4  may  be  used  to  transpose  from  any  key  to  any 
other  key.  It  also  serves  to  compose  a  four  part 
harmony  for  any  song  written  in  the  key  of  C.  For 
the  transposing  subprogram,  notes  may  be  entered 
in  the  following  format:  C  is  C,  C  sharp  is  C#,  C  flat 
is  C  and  so  on  for  A  through  G.  For  the  harmonizer 
subroutine,  notes  are  input  in  a  numerical  format; 
middle  C  is  0,  the  higher  frequency  notes  D,  E,  F 
...  are  +1,  +2,  +3  .  .  .,  and  the  lower  frequency 
notes  B,  A,  G .  .  .  are  -1,  -2,  -3 . . ..  Because  the 
song  input  must  be  in  the  key  of  C,  sharps  and  flats 
are  not  absolutely  necessary  and  are  not  provided 
for  by  the  program.  The  addition  of  sharps  and  flats 
would  be  one  improvement  to  experiment  with.  Of 
course,  the  transposing  program  may  be  adapted  to 
use  numerical  notation  instead  of  alphanumeric  no- 
tation and  then  be  used  in  conjunction  with  the 
transposing  subprogram.  Figure  6-7  shows  the 
numerical  system. 

Additional  possibilities  for  using  your  personal 
computer  in  music  composition  include  the  follow- 
ing: 

1.  Produce  a  stricter  set  of  rules  for  composition 


Table  6-1.  The  Probability  Distribution  for  the  Random  Selection  of  Notes. 


NO.  OF  NOTES 

AWAY 

PROBABILITY 

RANDOM  NUMBER  RANGE 

INTERVALE 

FROM  LAST  NOTE 

OF  SELECTION 

IN  +  DIRECTION 

IN  -  DIRECTION 

Unison 

0 

4% 

49-52 

49-52 

Half  Step 

±1 

14% 

53-59 

42-48 

Whole  Step 

±2 

12% 

60-65 

36-41 

Minor  Third 

±3 

10% 

66-70 

31-35 

Major  Third 

±4 

8% 

71-74 

27-30 

Perfect  Fourth 

±5 

12% 

75-80 

21-26 

Tritone 

±6 

2% 

81 

20 

Perfect  Fifth 

±7 

14% 

82-88 

13-19 

Minor  Sixth 

±8 

6% 

89-91 

10-12 

Major  Sixth 

±9 

6% 

92-94 

7-9 

Minor  Seventh 

±10 

4% 

95-96 

5-6 

Major  Seventh 

±11 

2% 

97 

4 

Octave 

±12 

6% 

98-100 

1-3 
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MIDDLE  C 


C'J'D6  D*/Eb       F*/^  G*/Ab  A^Bb 


F%b  G>Ab  A*/Bb  j  C^Db  D*/Eb       F*/^  G*/Ab  A^B** 

j  HHB  HB  HBH  | 


© 


B 

© 


® 


© 


© 


© 


B 

© 


V 

AN   OCTAVE 


Fig.  6-7.  A  numbering  system  for  harmonizing  programs  and  other  music-composing  programs. 


Listing  6-4:  The  Music  Program 

1  CLS 

10  PRINT  "MUSIC  PROGRAM:" 

20  PRINT  "HARMONIZES  AND  TRANSPOSES" 

30  INPUT  "SELECT:  l)TRANSPOSER   2)  HARMONIZER   3)  END"; A 

40  ON  A  GOTO  3000,100,780 

100  REM  HARMONY  COMPOSING  PROGRAM 

110  REM  A  FOUR  PART  HARMONY  IS  PRODUCED  FROM  A  GIVEN  MELODY  IN 

THE  KEY  OF  C 

120  DIM  B(5,100),Y(6,6),V(100):RESTORE 

130  J$="  ##   +##     +##     +##     +##" 

140  FOR  Tl=l  TO  6:FOR  T2=l  TO  6:READ  Y(T1,T2) 

150  NEXT  T2,T1:R1=1 

160  DATA  5,4,1,6,2,3,6,4,2,1,5,3,6,4,3,1,2,5,1,5,4,6,3,2,2,6,5 

170  DATA  4,1,3,1,5,3,6,2,4,1,0,-3,-5,-7 

180  INPUT  "ENTER  THE  NUMBER  OF  NOTES  IN  THE  MELODY  " ,W9 

190  FOR  E=0  TO  4: READ  B(E,W9) :NEXT  E 

195  REM  INPUTTED  MELODIES  MUST  BE  IN  THE  KEY  OF  C 

200  PRINT  "ENTER  NOTES  INDIVIDUALLY  IN  THE  FOLLOWING  FORMAT:" 

210  PRINT  "MIDDLE  C=0" 

220  PRINT  "NOTES  ABOVE  MIDDLE  C  ARE  +l,+2,+3 .. .CORRESPONDING" 

230  PRINT  "TO  D,E,F..." 

240  PRINT  "NOTES  BELOW  MIDDLE  C  ARE  -1 ,-2,-3 .. .CORRESPONDING" 

250  PRINT  "TO  B,A,G..." 

260  FOR  Tl=l  TO  W9: INPUT  V(T1):NEXT  Tl 

270  PRINT: PRINT  "   #   SOPRANO   ALTO     TENOR   BASS" 
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280  L2=l 

290  FOR  W=W9  TO  1  STEP  -1 

300  IF  W=W9  THEN  760  ELSE  Rl=l 

310  FOR  R=R1  TO  6 

320  B=V(W):B(1,W)=B:L2=Y(L1,R):B(0,W)=L2 

330  M=B(4,1+W):M(1)=L2-8:M(2)=L2-15 

340  FOR  S=l  TO  2 

350  IF  ABS(M(S)-M)<=5  THEN  NEXT  S  ELSE  A=M(3-S) :GOTO  370 

360  IF  B>B(1,W+1)  THEN  A=M(2)  ELSE  A=M(1) 

370  S=1:B(4,W)=A 

380  FOR  T=0  TO  4  STEP  2 

390  G=B-(T+A) :GOSUB  790:IF  G=0  THEN  410 

400  K(S)=A+T:S=S+1 

410  NEXT  T 

420  IF  S>3  THEN  690  ELSE   FOR  U=0  TO  6 

430  F(3,U)=K(1):F(0,U)=0:F(2,U)=K(2) 

440  K=K(2):J=K(1):K(2)=J+7:K(1)=K 

450  NEXT  U 

460  FOR  U=0  TO  6 

470  FOR  E=2  TO  3 

480  K=F(E,U) 

490  IF  (5-E*4>K)  OR  (17-E*4<K)  OR  (ABS(K-B(E,W+1) ) >5) 

THEN  610 

5,00  B(E,W)=K:IF  B(2*E-3,W)<=B(2*E-2,W)  THEN  610  ELSE  NEXT 

510  IF  L1=L2  THEN   570  ELSE  FOR  El=l  TO  4 

520  FOR  E2=E1+1  TO  4 

530  M=B(E1,W+1)-B(E2,W+1) 

540  G=M:GOSUB  790: IF  (G=0)  OR  (G=4)  THEN  550  ELSE  560 

550  IF  B(E2,W)-B(E2,W+1)=B(E1,W)-B(E1,W+1)  THEN  610 

560  NEXT  E2,E1 

570  FOR  E=2  TO  3 

580  M(E)=ABS(B(E,W)-B(E,W+1)) 

590  NEXT  E 

600  F(0,U)=M(2)+M(3):GOTO  620 

610  F(0,U)=88 

620  NEXT  U 

630  V=88:FOR  U=0  TO  6 

640  V1=F(X1,U) 

650  IF  V1>V  THEN  660  ELSE  V=V1:U9=U 

660  NEXT  U 

670  IF  V=88  THEN  690 

680  B(3,W)=F(3,U9):B(2,W)=F(2,U9):GOTO  760 

690  NEXT  R 

700  W=W+1:IF  W90W  THEN  710  ELSE  PRINT  "PROGRAM  CANNOT 

CONTINUE" 

705  INPUT  "TRY  AGAIN" ;A$: IF  A$="Y"  OR  A$="YES"  THEN  30  ELSE  780 

710  L1=B(0,W+1) :L2=B(0,W) 

720  FOR  R=l  TO  6 

730  IF  L2=Y(L1,R)  THEN  750 

740  NEXT  R 

750  Rl=R+l:GOTO  310 

760  PRINT  USING  J$;W,B(1,W) ,B(2,W) , B(3 ,W) ,B(4,W) 

770  L1=L2:NEXT  W 
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780  CHAIN  "MENUPROG" ,230 

790  G=G-INT(G/7)*7: RETURN 

3000  REM  TRANSPOSER 

3010  REM  READ  HARMONY  PROG. DATA  FIRST 

3020  FOR  X=l  TO  36 

3030  READ  A: NEXT  X 

3040  DIM  A$(18,18) ,W$(100) 

3050  FOR  B=l  TO  17 

3060    FOR  C=l  TO  17 

3070      READ  A$(B,C) 

3080  NEXT  C,B 

3090  INPUT  "ENTER  THE  KEY  THAT  THE  SONG  IS  IN  (E.G. ,C#) " ;B$ 

3100  FOR  X=l  TO  17 

3110    IF  B$=A$(1,X)  THEN  3120  ELSE  NEXT  X 

3120    INPUT  "ENTER  THE  KEY  TO  TRANSPOSE  TO  ",C$ 

3130    FOR  T=l  TO  17 

3140      IF  C$=A$(1,T)  THEN  3150  ELSE  NEXT  T 

3150      PRINT  "ENER  THE  NOTES  OF  THE  SONG  SEPARATELY" 

3160      PRINT  "ENTER  'END'  TO  END":R=1 

3170      INPUT  W$(R) 

3180     IF  W$(R)="END"  THEN  3190  ELSE  R=R+l:GOTO  3170 

3190     R=R-1 

3200     FOR  Z=l  TO  R 

3210       FOR  P=l  TO  17 

3220         IF  W$(Z)=A$(P,X)  THEN  3230  ELSE  NEXT  P 

3230         PRINT  A$(P,T) ;" 

3240  NEXT  Z 

3250  DATA  C,C# ,D-,D,D#,E-,E,F,F# ,G-,G,G# ,A-,A,A# ,B-,B,C# ,D 

3260  DATA  D,D# , E,E,F,G-,G,G, G#,A,A,A#,B,B,C,D-,D,D,D# ,E,E,F 

3270  DATA  G-,G,G,G#,A,A,A# ,B,B,C,D,D# ,E-f E,F,F,F# ,G,G# ,A-,A,A# 

3280  DATA  B-,B,C,C,C# ,D#, E,E,F,F#, G-,G,A-f A,A,A#,B,B,C,C#,D-,D 

3290  DATA  E-,E,E,F,F# ,G-,G,A-,A,A, A#, B,B,C,C#,D-,D,E,F,F,F# ,G,G 

3300  DATA  G# ,A,A#,B-,B,C,C,C# ,D,D,D# ,F,F# ,G-,G,G#,A-,A,B-,B,B,C 

3310  DATA  C#,D-fD,D#,E-fE,F#,G,G,G#,A,A,A#,B,C,C,C#,D,DfD#,E,E,F 

3320  DATA  G-,G,G,G# ,A,A,A#, B,C,C,C# ,D,D,D#, E,E,F,G,G# ,A-,A,A#,B- 

3330  DATA  B,C,C#,D-,D,D#,E-,E,F,F,F#,G#,A,A,A# ,B,B,C,D-,D,D,D#,E 

3340  DATA  E,F,F# ,G-,G,A-,A,A,A# ,B,B, C,D-,D,D,D# ,E,E,F,F# ,G-,G 

3350  DATA  A,A#,B-,BfC,C,C#,D,D#,E-,E,F,F,F# ,G,G,G# ,A# ,B,B,C,C#,D- 

3360  DATA  D,E-,E,E,F, F# ,G-,G,G# ,A-,A,B-,B,B,C,C# ,D-,D,E-,E,E,F, F# 

3370  DATA  G-,G,G# ,A-,A,B,C,C,C# ,D,D,D# , E,F,F,F# ,G,G,G# ,A,A,A# 

3380  GOTO  30  « 


than  those  given  above;  rely  less  upon  ran- 
domness. 

Develop  programs  to  compose  in  assorted 
musical  styles  including  classical,  rock  and 
roll,  and  children's  music.  Computer  musicians 
have  applied  statistical  analysis  to  various 
styles  and  composers  to  determine  charac- 
teristic probability  distributions.   Random 


numbers  subjected  to  these  probability  criteria 
can  produce  music  reminiscent  of  the  original 
style. 

Develop  programs  to  compose  songs  for  given 
lyrics  by  using  the  timing  of  each  syllable  to 
time  the  duration  of  the  notes  accordingly.  The 
ambitious  programmer  might  try  to  link  a 
lyric-producing  program  with  a  music  compo- 
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sition  program;  some  unusual  results  would 
undoubtedly  be  produced. 
4.  A  popular  melody  could  be  mathematically 
transformed  to  produce  a  new  melody,  and  this 
new  melody  would  likely  be  more  tuneful  than 
compositions  based  on  random  number 
generators,  fractals,  or  probability  distribu- 
tions. The  original  melody  would  be  numeri- 
cally encoded  such  that  each  note  and  note 
duration  has  a  unique  number.  With  the  melody 
so  coded,  an  algorithm  could  be  applied  to  each 
note,  translating  that  note  into  another.  The 
simplest  such  algorithm  could  reflect  each  note 
around  a  central  value,  transforming  high  notes 
into  low  ones  and  vice  versa.  It  could  also  be  a 
mathematical  formula,  but  extensive  ex- 
perimentation would  be  necessary. 
The  following  formula  is  useful  as  a  part  of  a 
musical  tone  generation  program  based  upon  the 
numbering  notes  according  to  octave  (V),  where 
middle  C  is  in  the  fourth  octave,  and  according  to 
position  within  the  octave  where  C=l,  C#=2  .  .  . 
B=12. 


f 
55 


log2  —      =  V  + 


P-22 
12 


where  f  =  frequency  in  Hz. 

A  program  that  performs  a  simple  song  trans- 
formation is  presented  in  Listing  6-5. 

5.  Given  the  score  of  a  music  piece  written  for  a 
solo  instrument  (for  example,  the  piano),  the 
computer  could  transpose  and  analyze 
melodies,  bass,  and  counter  rhythms  to  pro- 
duce sheet  music  versions  for  other  instru- 
ments. 

6.  A  microcomputer  connected  to  a  player  piano 
via  a  solenoid  interface  could  digitally  record 
songs  you  play  or  song  notes  you  input.  The 
song  could  be  stored  on  cassette  or  floppy  disk 
and  recalled  to  be  played  at  normal  speed, 
faster,  slower,  backwards,  with  staccato,  and 
so  on. 

7.  A  microcomputer  interfaced  with  a  mono- 
phonic  electronic  synthesizer  could  theoreti- 
cally produce  a  polyphonic  effect,  add  a  con- 
tinuous bass  or  beat  pattern,  and  perform  a 
sequence  of  switching  or  mixing  for  live  per- 
formances. 

8.  From  a  given  composition,  a  simplified  version 
could  be  extracted  by  the  computer  (the 
melody  is  usually  carried  by  the  highest  notes, 
the  bass  by  the  lowest)  and  printed  in  standard 


Listing  6-5:  The  Simple  Song  Transformation  Program 

10  REM  SIMPLE  SONG  TRANSFORMATION 

20  REM  REFLECTS  NOTES  AROUND  A  CENTRAL  VALUE 

30  READ  N."  REM  SET  N-NO.  OF  NOTES  IN  THE  SONG 

35  DIM  M(N) 

40  F0RX=1  TO  N 

50  READ  M(X) 

60  M(X)=10+(10-M<X) > :REM  REFLECT  AROUND  NOTE  #10 

70  NEXT  X 

80  FOR  X=l  TO  N 

90  PRINT  M<X>  5 "   " ; 

100  NEXT  X 

110  END 

115  REM  FIRST  DATA  POINT  IS  #  OF  NOTES  IN  SONG, 

116  REM  FOLLOWED  BY  NOTES  OF  SONG 
120  DATA  10 

130  DATA  4,2,5,7,5,5,13,1,12,3 
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musical  notation.  Also,  a  given  piece  could  be 
arranged  so  that  all  chords  are  broken  up  into 
varying  arpeggios. 
9.  Given  a  melody,  the  computer  could  be  pro- 
grammed to  compose  a  bass  counter-melody. 
Computer  controlled  synthesizers.  In 
1982,  a  group  of  synthesizer  manufacturers  de- 
veloped a  standardized  interface,  called  MIDI 
(Musical  Instrument  Digital  Interface),  to  enable 
communication  between  synthesizers  and  comput- 
ers. Each  key  is  encoded  in  a  fashion  similar  to  a 
computer  (ASCII)  keyboard.  For  each  key  struck,  a 
series  of  codes  are  sent:  a  NOTE  ON  signal,  a 
PITCH  signal,  a  VELOCITY  signal,  and  (depending 
on  the  machine)  other  signals  specifying  pitch 
blends,  patch  changes,  key  release,  after  touch 
pressure,  and  front  panel  changes.  This  information 
can  be  sent  to  any  other  MIDI  synthesizer  so  that 
two  or  more  keyboards  can  perform  in  exact  syn- 
chronization, although  the  patches  are  different  on 
each  machine.  Special  codes  can  indicate  that  only 
specified  synthesizers  are  to  respond  to  the  fol- 
lowing code.  Through  a  serial  interface,  this  infor- 
mation can  also  be  sent  to  a  computer,  which  may 
serve  as  a  polyphonic  sequencer  or  imitator  of  a 
multi-track  tape  machine.  The  computer  may  re- 
cord, edit,  store,  and  play  back  your  music  or  play 
music  entered  through  the  ASCII  keyboard.  A  com- 
poser can  quickly  change  tempo,  pitch,  instru- 
ments, accents,  and  so  on  with  the  aid  of  such  a 
system,  which  is  capable  of  producing  a  flawless 
rendition. 

The  Computer  Music  Journal  (P.O.  Box  E, 
Menlo  Park,  CA  94025)  is  a  good  source  of  infor- 
mation on  composing,  scoring,  and  playing  music  on 
computers,  for  the  professional  or  amateur. 

HOBBIES 

The  microcomputer  can  perform  invaluable 
services  for  those  involved  in  almost  all  hobbies. 

Photography 

The  serious  photographer  should  investigate 
the  use  of  the  computer  to  obtain  more  precise 
values  for  such  things  as  development  times,  light 
exposures,    and  filters   through  the   use   of 


mathematical  formulae.  For  example,  the  standard 
exposure  meter  assumes  the  following:  1)  for  any 
emulsion,  the  curve  of  the  density  versus  the  log  of 
the  exposure  yields  a  straight  line  and  is  charac- 
terized by  a  single  factor— speed,  2)  time  and  in- 
tensity of  light  are  interchangeable  to  provide  a 
certain  exposure  (reciprocity).  Actually,  these  as- 
sumptions are  only  approximations  of  true  values. 
In  extreme  cases,  reciprocity  does  not  work;  the 
density  versus  log  of  exposure  curve  is  not  linear, 
and  emulsions  have  differing  contrasts  and 
latitudes.  A  reference  manual  describing  the 
mathematical  calculations  of  photography  should 
describe  the  formulae  used  to  take  these  factors 
into  account. 

Other  ways  in  which  photographers  can  use 
microcomputers  include  the  following  areas. 
1.  Exposure  compensation  is  useful  in  the 
darkroom  to  calculate  the  exposure  required  to 
compensate  for  a  change  in  photo  enlargement 
magnification.  Using  the  inverse  square  law,  if 
you  have  data  on  a  "perfect"  print  expressed  as 
enlarger  head  height  above  the  easel  (HQ)  and 
time  of  exposure  (T  ),  the  formula  for  com- 
puting the  new  time  of  exposure  (T  )  at  the 
new  height  (U^)  with  the  same  aperture  is 

H., 


T    = 

N 


H, 


x  T„ 


A  useful  program  could  calculate  exposure 
times  for  a  range  of  specified  heights  at  all 
available  f-stops  to  permit  easy  enlargement  of 
a  negative  to  a  given  size. 

2.  Fill-in  flash  computation  is  used  to  determine 
the  correct  lens  f-stop  when  a  flash  is  used  in 
the  presence  of  strong  ambient  light  to  fill-in 
undesired  shadows. 

3.  If  you  intended  to  do  specialized  photography 
requiring  homebuilt  equipment,  the  computer 
could  be  useful  in  optical  and  dimension  calcu- 
lations. 

4.  Automated  control  of  darkroom  equipment  (in- 
cluding such  features  as  temperature  correc- 
tion for  chemicals,  timer,  development  cal- 
culator) could  expedite  the  development  pro- 
cess. Alternatively,  the  computer  could  serve 
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as  a  timer  and  reminder  for  steps  to  be  taken  in 
the  development  process. 

5.  An  inventory  of  slides  or  photographs  could  be 
stored  on  disks  or  tapes,  and  topics  could  be 
indexed  and  cross-referenced.  Thus,  to  create 
a  slide  show  of  a  particular  topic,  you  can  use 
the  computer  to  determine  all  relevant  slides 
and  output  a  listing  of  each  along  with  its  loca- 
tion and  remarks. 

6.  A  simple  switching  interface  to  a  cassette  re- 
corder and  slide  projector  could  automate  a 
complete  audio-visual  slide  presentation.  An 
exotic  audio-visual  light  show  could  be  con- 
trolled in  a  similar  manner. 

7.  Focal  length  conversions  from  one  camera  to 
another,  based  on  the  diagonal  or  horizontal 
angle  of  view,  could  be  done. 

8.  A  program  could  be  written  to  calculate  film 
speed  (ASA),  flash  ECPS  value,  or  flash  guide 
number,  given  the  other  two  values.  Once  the 
flash  guide  number  is  known,  the  maximum 
f-stop  for  the  distance  from  the  flash  to  subject, 
may  be  calculated. 


f-stop 


Guide  number 
distance 


The  published  flash  guide  number  is  for  one 
speed  of  film  only.  If  you  use  a  different  film  with  a 
different  speed,  the  new  guide  number  may  be 
found  using  the  formula 


New  Guide  No. 
Old  Guide  No.  x 


New  Film  Speed 
Published  Film  Speed 


9.  Close-up  photography  values  for  subject  dis- 
tance, required  lens  focus  setting,  or  field  of 
coverage  could  be  calculated  given  the  other 
three  values. 
10.  The  depth  of  field  indicates  the  distance  from 
some  point  in  front  of  the  subject  to  some  point 
in  back  of  the  subject  for  which  a  given  photo- 
graph will  be  acceptably  sharp.  A  computer 
program  could  mathematically  determine  how 
the  desired  near  and  far  distances  can  be  ob- 


tained, in  terms  of  the  f-stop  and  distance  set- 
tings to  use.  The  hyperfocal  distance,  or  the 
nearest  distance  for  which  a  lens  can  be  focused 
to  give  satisfactory  definition  of  infinity,  is 
given  by 


H  = 


fxd 


where  H  =  hyperfocal  distance 
F  =  focal  length  of  lens 
f  =  f/number 
d  =  diameter  of  circle  of  confusion. 

11.  A  photograph  of  your  video  screen  displaying 
alphanumerics  or  graphics  could  be  used  to 
title  home  slide  shows  or  movies.  A  recom- 
mended procedure  is  to  darken  the  room  com- 
pletely, use  a  tripod,  and  shoot  with  ASA  125 
Plus  -X  at  f/1.4,  1/8  second. 
For  serious  hobbyists  or  professionals,  a 
BASIC  program  for  microcomputers  to  design  and 
evaluate  lenses  was  described  in  Photonics  Spectra, 
December  1983,  pp.  58-62. 

Animated  films.  Although  most  microcom- 
puters are  not  fast  enough  to  display  high- 
resolution  real-time  animation,  a  time-lapse  film 
could  be  made  with  the  end  result  being  equivalent 
to  real-time  graphics.  The  graphic  resolution 
should  be  a  minimum  of  200  by  200  individually 
definable  blocks.  Much  better,  although  much  more 
expensive,  would  be  a  system  equipped  with  a 
plotter  to  draw  all  of  the  figures  necessary  to  pro- 
duce an  animated  film  sequence.  The  three  dimen- 
sional rotation  of  an  object  is  a  popular  film  subject 
due  to  the  relative  ease  in  programming. 

Amateur  Radio 

The  ham  radio  or  citizen's  band  radio  en- 
thusiast could  use  a  personal  computer  to  assist 
with  his  hobby  in  these  ways: 

Morse  code  tutor.  Computerists  interested 
in  passing  the  Morse  code  test  to  become  amateur 
radio  operators  could  use  their  machines  to  quiz 
themselves  both  visually  and  audibly.  The  visual 
representation  of  Morse  code  is,  of  course,  a  series 
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of  dots  and  dashes:  — .  -.  — . . . .  Those  of  you  who  are 
using  a  TRS-80  without  a  built-in  speaker  can  use 
one  of  the  following  methods  to  obtain  the  audible 
representation  of  the  code. 

1.  Use  an  interfaced  tone  output  speaker 

2.  Use  timing  loops  to  generate  tones  of  a 
certain  duration  on  an  AM  radio  placed  next 
to  the  CPU. 

The  standard  method  of  learning  Morse  code  is 
to  first  study  the  visual  representations,  and  sec- 
ond, to  transcribe  an  audio  transmission  at  a  gradu- 
ally increasing  rate.  A  program  similar  to  the  gen- 
eral CAI  program  described  in  Chapter  5  could  be 
used  to  requiz  you  on  the  codes  you  have  missed. 

Message  displayer.  By  using  a  Morse  code 
decoder/sender  interface  between  the  radio  and 
your  computer,  received  and  sent  messages  could 
be  displayed  on  a  video  monitor  in  English,  allowing 
the  computer  to  "translate"  Morse  code  (or  some 
other  code)  to  English  and  vice  versa. 

Message  monitor.  The  computer  could 
monitor  a  specified  frequency  for  a  particular  audio 
signal  or  coded  message.  Transmissions  im- 
mediately following  this  signal  would  be  recorded 
digitally  or  on  cassette  tape.  Thus,  you  need  not 
attend  to  the  radio  constantly  to  receive  a  message. 
Received  messages  could  also  be  forwarded  au- 
tomatically on  another  frequency  to  another  station 
in  a  network. 

Message  relay.  A  stored  message  could  be 
sent  at  the  proper  time  if  the  station  operator  was 
unable  to  send  it  personally. 

Controller.  Add  intelligence  to  your  test 
equipment  or  radio  with  a  controlling  microproces- 
sor. Test  sequences  could  be  done  automatically. 

Station  log  maintainer.  Maintain  your  sta- 
tion log  automatically— All  entries  could  be  stored, 
and  classified,  and  special  reports  generated  (for 
example,  how  many  countries  have  been  contacted? 
Have  there  been  any  repeat  contacts?).  If  you  hear 
someone  and  you're  not  sure  whether  or  not  you 
talked  with  him  6  months  ago,  you  could  type  in  his 
name  or  call  letters  and  find  out  the  last  contact 
from  a  computer  database  of  log  entries. 


Error  correcting  code  senders.  Error  cor- 
recting codes  could  be  automatically  generated  to 
improve  communications. 

Contest  record  keeper.  Several  ham  radio 
contests  have  utilized  small  computers  to  keep 
track  of  all  contacts. 

Collections 

Whether  it  be  books,  magazines,  coins, 
stamps,  antiques,  or  matchbook  covers,  most 
everyone  collects  something.  The  microcomputer 
can  help  you  organize  and  present  your  collection 

Collection  inventory.  If  your  collection  in- 
volves many  items,  such  as  hundreds  or  even 
thousands  of  stamps,  it  is  certainly  a  good  idea  to 
catalog  each  item.  A  computer  database  program, 
as  described  in  the  first  chapter,  is  ideal  for  main- 
taining large  collections  of  any  kind. 

In  addition  to  storing  an  individual  record 
specifying  all  pertinent  information  on  each  item, 
the  computer  would  also  be  able  to  categorize, 
cross-index,  and  generate  special  lists  of  items.  A 
special  list  could  include  all  items  that  have  a  par- 
ticular characteristic,  for  instance,  a  list  of  all 
British  stamps  or  all  stamps  issued  in  1979. 

The  fields  to  use  in  setting  up  a  stamp  collec- 
tion database  might  look  like  this: 

1.  CATALOG  NUMBER 

2.  NAME  OR  IDENTIFYING  TITLE 

3.  DENOMINATION 

4.  SUBJECT 

5.  ORIGINAL  COST 

6.  CONDITION 

7.  DATE  ISSUED 

8.  QUALITY 

9.  CURRENT  VALUE 

10.  COUNTRY  OF  ORIGIN 

11.  DESCRIPTIVE  INFORMATION  AND 
HISTORY 

12.  WHERE  PURCHASED 

13.  MISCELLANEOUS  COMMENTS 

Using  the  database  program,  you  could  re- 
quest the  sum  of  field  5  or  9  for  all  records  to 
determine  the  original  cost  and  current  value  for  the 
entire  collection. 
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Collection  management  on  your  personal  com- 
puter allows  more  time  for  the  fun  of  collecting 
without  the  bother  of  record-keeping.  Additionally, 
a  cassette  or  floppy  disk  copy  of  the  inventory  could 
be  stored  in  a  safe  location  in  the  event  an  insured 
collection  is  destroyed. 

Collection  narrator.  Hobbyists  with  collec- 
tions will  find  that  their  personal  computer  with 
video  display  makes  an  excellent  visual  narrator  of  a 
collection.  For  example,  a  stamp  collector  created  a 
file  of  his  entire  collection,  with  information  on  each 
item  randomly  accessible.  His  narrations  were 
similar  to  this: 

Decade  of  Space  Achievement  Issue 

Issued:  August  2,  1969  Purchased:  September  1, 

1969 

Purchase  price:  .16  Value:  .60 

This  stamp  pair  depicts  the  ascent  of  man  upon  the 
surface  of  the  moon. 

Interested  persons  can  be  instructed  how  to 
obtain  information  on  a  particular  item,  or  else  the 
computer  can  present  a  continuous  display  of  each 
item  in  sequence;  this  technique  can  save  you  from 
monotonous  repetition  of  information  to  visitors  at 


an  exhibition.  Businessmen  at  expositions  could 
put  their  personal  computer  to  similar  use  in  ex- 
plaining products. 

Astronomy 

Potential  applications  for  your  personal  com- 
puter in  amateur  astronomy  include  the  following: 

1.  Locate  and  identify  stars— Calculation  of  dec- 
lination, sidereal  hour  angle  from  observed  al- 
titude, azimuth,  and  time. 

2.  Make  records  of  observations  efficiently  in 
computer  format  for  quick  retrieval. 

3.  Interface  telescope  drive  mechanics  to  a  mi- 
croprocessor controller  for  automatic  photo- 
graphic observations.  For  more  information  see 
InfoWorld,  Volume  5,  Number  47  (12/83)  pp. 
45-46  and  Sky  and  Telescope,  January  1981,  p. 
71. 

4.  Interconvert  astronomical  units,  kilometers, 
light  years,  and  parsecs. 

5.  Calculate  and  plot  orbits  of  satellites  and 
planets. 

The  astronomy  demonstration  program  in 
Listing  6-6  calculates  the  relative  position  of  Venus 
in  degrees  and  hours  from  the  sun  for  a  given  date. 


Listing  6-6:  The  Astronomy  Demo  Program 


SUN 


10  REM  ASTRONOMY  DEMO  PROGRAM 

20  REM  CALC.  RELATIVE  POSITION  OF  VENUS 

25  REM  CALC.  NO.  DAYS  SINCE  12-31-49: 

30  INPUT  "ENTER  THIS  YEAR  AS  TWO  DIBITS  (E.G. '84'  FOR  19S2)";Y 

35  INPUT  "ENTER  NO.  DAYS  SINCE  DEC.  31  OF  LAST  YEAR"; DA 

37  REM  E.G.  FEB.  5  WOULD  BE  36  DAYS 

40  X=364*INT ( (Y-50) /4) +365* ( (Y-50) -INT ( (Y-50) /4) ) +DA 

50  PI=3. 14 1592: A=PI/ 180: C=A*. 9856: B=180/PI:D=99.2*A:E=D+C*X 

55  IF  E  <  PI*2  THEN  70 

60  E=E-PI*2:  GOTO  55 

70  E=S IN ( E-A* 1 05 ) * 1 . 9*A+E : F=A* 1 . 602 : 

80  IFH  <  PI*2THEN100ELSEH=H-PI*2:G0T080 

100  H=H+SIN<H-A*135>*  .  8*A 

1 10  J=SIN  <H-A*232) *. 0055+. 7233 

120  K=H-E: I=SIN<E-A*195)*. 016+1 :M=-PI/2 

130  L=SQR<J*J+I*I-2*J*I*C0S(K>) 

135  N=SIN  (K)*<J/L)+SIN(M) 
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140  IFN  <0THENM=PI/3600+M:G0T0135:ELSER=M*12/PI 

170  PRINT  "THE  RELATIVE  LOCATION  OF  VENUS  IS" ;M*B; "DEGREES  FROM 

THE  SUN" 

180   PRINT    "=TO"5R5"HOURS   FROM    THE    SUN": END 


A  series  of  BASIC  astronomical  calculation 
programs  for  ephemeris  of  comets  and  minor 
planets,  locations  of  celestial  objects,  and  altitude 
and  azimuth  of  the  sun  appeared  in  80  Microcom- 
puting, October  1983. 

Gardening 

Writing  a  garden  analysis  program  for  one- 
time use  would  not  be  a  practical  idea,  but  your 
friends  and  neighbors  could  use  such  a  program,  and 
you  may  be  able  to  sell  the  completed  software  to  a 
local  garden  supply  store.  A  complete  analysis  pro- 
gram is  more  complicated  than  it  appears  on  the 
surface,  no  pun  intended.  These  are  some  of  the 
factors  to  consider: 

1.  pH,  water,  soil  density,  and  sunshine  levels  of 
the  plot. 

2.  Desired  pH,  water,  soil  density,  and  sunshine 
levels  for  the  plants  to  be  planted. 

3.  Nitrogen,  phosphorus,  and  potassium  contents 
in  the  soil  compared  to  plant  requirements. 

4.  The  size  of  the  garden. 

Proper  planning  will  allow  you  to  position 
certain  vegetables  that  ward  off  insects  next  to 
others  that  need  this  protection.  The  space  needed 
between  adjacent  plants  should  also  be  considered. 
Specific  plant  requirements  and  the  harvest  times 
of  the  vegetables  could  be  printed,  along  with  a 
graphic  presentation  of  the  garden  plot: 


Tables  of  times  to  plant,  spray,  and  prune  can  also 
be  stored  for  ready  reference  and  to  simplify  plan- 
ning. 

Sports 

A  file  of  team  and  player  statistics,  player's 
names  and  numbers,  and  other  sports  information 
could  be  stored  on  the  computer  (preferably  on 
floppy  disk)  for  quick  retrieval  by  the  television 
sports  fan.  Sports  statistics  could  be  compiled, 
graphed,  and  analyzed.  Probability  forecasting  of 
score  and  point  spread  based  upon  past  perfor- 
mance of  opposing  teams  could  be  accomplished. 
The  computer  could  also  "learn"  from  its  mistakes, 
retaining  the  outcomes  of  many  games  in  memory. 

At  local  sporting  events  a  microcomputer 
could  be  useful  in  maintaining  scores,  team  rec- 
ords, and  player  records  or  statistics  as  the  game 
progresses  (for  use  by  the  announcer  or  for  perma- 
nent records). 

A  series  of  elapsed-time  computations  could 
be  accomplished  efficiently  with  the  proper  pro- 
gram. A  programmable  calculator  could  serve  as  a 
digital  stopwatch  as  well. 

Bowling,  golf,  and  other  sports  involving  the 
tedious  calculation  of  averages  and  other  statistics 
for  a  league  are  well-suited  for  computer  book- 
keeping. Sell  such  a  computer  service  or  offer  it 
gratuitously  to  your  local  bowling  alley  or  golf 
course. 


BEETS  

CORN  ~— Gambling 

RADISHES  :::::::::::::::::::::::::::::::::::::::::::::::  Your  computer  could  become  a  helpful  advisor 

TOMATOES  for  those  who  play  poker  and  various  other  card 

games.  All  information  available  (for  example  the 

Additional  outputs  could  explain  how  to  form  a  cards  in  your  hand  and  the  amount  of  the  bet)  would 

compost  heap  and  how  to  use  fertilizer.  One  gar-  be  input  before  each  round,  and  an  analysis  based 

dener  uses  his  personal  computer  to  track  insec-  upon  the  laws  of  probability  could  determine  your 

ticide  and  herbicide  application,  precipitation  dates  best  move.  (Perhaps  your  opponents  would  object 

and  amounts,  temperature,  and  chores  to  be  done,  to  this  advantage!).  For  example,  these  are  the 
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probabilities  for  obtaining  particular  poker  and 
bridge  hands: 


Royal  flush 

649,739  to  1 

Straight  flush 

72,192  to  1 

Full  house 

693  to  1 

Flush 

508  to  1 

One  pair 

1.37  to  1 

Straight 

254  to  1 

13  card  suit 

158,753,389,899  to  1 

12  card  suit 

367,484,698  to  1 

Nine  honors 

104  to  1 

Yarborough— 

1,827  to  1 

no  honors 

Four  aces/four 

378  to  1 

of  a  kind 

Three  of  a  kind 

47  to  1 

Two  Pair 

21  to  1 

One  Pair 

2  to  1 

Nothing  of  Interest 

2tol 

These  probabilities  were  in  part  computed  by 
the  use  of  the  formulas  for  combinations  and  per- 
mutations. The  number  of  combinations  of  n  things 
taken  four  at  a  time  is  designated  by 


C   =  

(n  -  r)!(r!) 


and  the  number  of  permutations  of  n  objects  taken  r 
at  a  time,   P  is 


P   = 

n     r 


n! 


(n  -  r)! 


The  mathematical  concept  of  expectation  is 
very  useful  in  determining  when  to  drop  out  of  a 
poker  hand  or  other  gambling  operation. 

Expectation  =  probability  times  winnings 

For  example,  suppose  a  poker  player  plans  to  call  a 
bet  of  $2,  which  would  increase  the  pot  (potential 
winnings)  to  $14.  If  he  can  see  from  the  exposed 
cards  that  his  probability  of  winning  is  .4,  his  ex- 
pectation is .  4  x  $14  =  $5. 60,  for  which  he  must  pay 
$2.  Since  the  expectation  is  worth  more  than  the 


purchase  price,  he  should  call  the  bet.  This  is  but 
one  concept  to  incorporate  with  a  betting  analysis 
program. 

Other  forms  of  gambling  (for  example,  football 
betting  and  jai-alai)  may  be  computer-analyzed 
based  upon  past  performances  of  the  opponents  and 
a  confidence  level  established  to  conservatively 
pick  the  winner/point  spread.  Statistics  to  be  in- 
corporated in  a  database  could  include  each  team's 
win/loss  record,  the  coach,  the  location  (home  or 
away),  the  playing  surface,  and  each  team's  record 
against  the  point  spread.  A  complete  computer 
analysis  of  hundreds  of  games  played  from  any  one 
sport  could  yield  a  system  for  predicting  future 
outcomes  through  the  use  of  statistical  cross- 
correlation  between  all  variables. 

Fishing 

Potential  applications  for  serious  fishermen 
include  the  following: 

1.  The  analysis  of  weather  patterns  and  times  in 
order  to  forecast  the  ideal  time  to  fish. 

2.  The  recording  of  weight  and  species  of  catch, 
locations  fished,  weather,  tides,  depth  and 
temperature.  Use  this  statistically  correlated 
data  for  future  reference.  A  portable  mi- 
crocomputer with  an  A/D  converter  could 
gather  some  of  this  data  automatically.  One 
lobster  fisherman  has  statistically  analyzed  his 
placement  of  lobster  traps  on  his  microcom- 
puter to  optimize  his  catch. 

3.  The  computation  of  high  and  low  tide  times  and 
time  of  sunrise/sunset. 

The  computation  of  times  of  sunrise/ 
sunset  and  high  and  low  tides.  Pilots  as  well  as 
fishermen  will  find  a  sunrise/sunset  calculating 
program  useful.  To  keep  such  a  program  as  simple 
as  possible,  tide  or  sunrise  data  from  previous  days 
could  be  entered  to  eliminate  highly  technical  cal- 
culations. The  times  for  future  sunrises  or  sunsets 
may  then  be  projected  by  linear  regression  or  mov- 
ing average  calculation. 

For  those  inclined  to  astronomical  calcula- 
tions, no  pun  intended,  the  time  of  sunrise/sunset 
may  be  more  accurately  calculated  by  consideration 
of  the  changing  inclination  to  the  sun  and  time  of 
rotation  for  the  earth. 
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Biorhythms,  Astrology,  and  the  Psychic 

Those  involved  in  exploring  the  more  contro- 
versial aspects  of  human  existence  will  also  find  the 
microcomputer  useful. 

Biorhythms.  Biorhythms  are  supposedly  the 
cycles  in  emotional,  physical,  and  intellectual 
states  governing  everyone's  behavior.  Dozens  of 
computer  programs  have  been  written  to  generate 
personalized  biorhythm  charts,  yet  interesting  ad- 
ditions could  be  included.  Potential  innovations  in- 
clude the  following: 

1.  Plotting  or  numerically  comparing  the 
biorhythms  of  two  or  more  friends  or  a  family. 

2.  Computing  the  average  of  all  three  biorhythmic 
cycles. 

3.  Generating  a  biorhythm  chart  in  the  form  of  a 
standard  calendar. 

4.  Judging  the  reliability  of  biorhythms  by  objec- 
tively analyzing  your  three  states  at  the  end  of 
each  day  and  making  a  statistical  comparison, 
and  plotting  this  data  versus  your  biorhythm. 

5.  Investigating  the  use  of  histograms  and  other 
means  of  presenting  data  to  output  biorhythms 
in  a  more  favorable  format,  including  artistic 
designs. 

6.  Comparing  the  reliability  of  your  standard 
biorhythm  to  one  beginning  with  your  esti- 
mated date  of  conception. 

Astrology.  The  determination  of  the  align- 
ments of  the  planets  and  the  sorting  of  astrological 
data  are  best  done  with  a  computer.  Horoscopes, 
interpolation  midpoints,  aspects,  and  Placidus 
house  and  astropoints  calculation  may  be  done. 
Tarot,  I-Ching,  and  Numerology  may  be  ac- 
complished in  a  similar  manner. 

The  psychic.  Purely  for  entertainment, 
"psychic"  and  "ESP"  programs  have  been  written 
using  random  number  generators;  can  you  predict 
the  computer's  choice  of  a  card  or  number? 

Additional  Hobby  Application 

Hobbyists  will  find  microcomputers  useful  in 
all  the  following  areas: 

Designing  recreational  vehicles.  A  hang 
glider  or  ultralight  enthusiast  considering  design- 


ing a  new  aerofoil  could  find  a  detailed  computer- 
simulated  wind  tunnel  test  beneficial.  The  pro- 
posed design  could  be  mathematically  described  to 
the  computer,  and  an  aerodynamic  simulation  of 
this  magnitude  could  only  be  done  by  someone  with 
a  good  background  in  aerodynamics.  Similar 
simultations  could  be  applied  to  boats  and  other 
recreational  vehicles. 

Model  building.  A  simple,  time-saving  pro- 
gram could  calculate  the  scaling  factor  for  model 
builders  by  dividing  the  length  of  the  model  by 
length  of  the  object  to  be  modeled.  Next,  each 
dimension  of  the  object  would  be  input,  and  the 
corresponding  dimension  for  the  model  would  be 
calculated  by  multiplying  the  original  dimension  by 
the  scaling  factor. 

Model  railroading.  Model  railroading  en- 
thusiasts with  a  large  layout  may  wish  to  automate 
the  trains,  lights,  switches,  and  so  on  with  a  con- 
trolling microprocessor.  One  hobbyist  went  so  far 
as  to  print  train  schedules  and  tickets,  and  analyze 
freight  business  on  his  personal  computer. 

Scuba  diving  plan.  A  simple  program  could 
calculate  one  of  these  four  parameters,  given  the 
other  three: 

1.  Time  underwater  in  minutes  =  TVW 

2.  Surface  air  consumption  rate  in  cubic  ft/min 
=  S 

3.  Depth  in  feet  =  D 

4.  Total  air  volume  of  tank  in  cubic  feet  = 
TAV 

33  •  TAV 


D  »S 


=  TUW 


Geneological  storehouse.  A  few  hobbyists 
have  obtained  a  sufficient  amount  of  geneological 
information  such  that  a  personal  computer  is  neces- 
sary to  file  and  update  the  information.  In  addition, 
having  specified  characteristics  of  each  family 
member  instantly  available  eases  the  task  of  further 
geneological  research. 

Aquarium  maintenance.  One  hobbyist  uses 
his  computer  to  compute  amounts  of  chemicals 
necessary  to  maintain  a  seawater  aquarium  envi- 
ronment. Complex  calculations  are  necessary  to 
obtain  exact  values  over  a  range  of  temperatures 
and  conditions. 
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Chapter  7 


Games  and  Recreational  Applications 


According  to  polls,  the  most  popular  application  of 
personal  computers  is  games,  with  over  60  percent 
of  owners  claiming  this  to  be  their  primary  applica- 
tion. Although  this  percentage  may  decline  with  the 
advent  of  inexpensive,  easy-to-use  software  for 
other  purposes  and  the  burgeoning  computer  net- 
works, games  will  continue  to  be  one  of  the  most 
popular  applications. 

Games  are  not  only  fun,  but  they  often  have  the 
added  benefit  of  being  educational.  The  child  (or 
adult!)  can  hone  his  skills  of  eye-hand  coordination 
and  develop  abilities  to  react  creatively,  solve 
problems  logically,  and  make  decisions.  Games  are 
often  the  best  learn-to-program  challenges  for  the 
beginner,  yet  the  professional  programmer  may 
even  find  himself  defeated  in  attempting  to  write 
complex  game  programs  (for  example,  chess  or 
Go).  Games  encourage  imaginative  and  construc- 
tive programming  and  responses. 

There  are  at  least  eight  major  categories  of 
games  that  have  been  adapted  to  the  computer: 
1.  Fantasy  and  adventure  games:  stemming  from 
the  popular  college  game,  Dungeons  and  Dra- 


gons, fantasy  and  adventure  games  lead  you  step 
by  step  through  an  imaginary  world  to  find  a 
special  treasure,  to  solve  a  mystery,  or  to  outfox 
an  evil  wizard.  However,  you  must  figure  out 
how  to  overcome  or  go  through  the  many  obsta- 
cles assigned  to  prevent  your  success  in  this 
elaborate  puzzle.  You  can  type  simple  com- 
mands, such  as  "go  east"  in  English,  and  the 
computer  will  describe  where  you  are  and  what 
the  situation  is  after  each  command.  The  more 
elaborate  adventure  games  may  use  vivid 
graphics  to  draw  the  scene  and  even  use  voice 
output.  Another  series  of  programs  called  in- 
teractive fiction  allows  you  to  interact  with  the 
characters  and  situations  in  a  story. 
2.  "Video"  games:  games  of  this  kind  usually  in- 
volve a  live  action,  shoot-em-up  approach,  pit- 
ting you,  for  example,  as  the  sole  champion  of  a 
ship  or  planet  versus  the  rest  of  the  universe, 
which  is  invariably  out  to  get  you.  If  you  begin  to 
be  successful,  of  course  the  battle  conditions 
deteriorate  and  the  battlefield  fills  with  in- 
creasingly difficult  targets  to  hit.  This  genre  is 
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the  most  popular  form  of  computer  game  and  a 
challenge  to  your  eye-hand  coordination;  all 
manner  of  competitions  are  available. 

3.  Strategy  and  battle  games:  for  those  who  prefer 
a  more  enlightened  approach  to  gaming, 
strategy  games  offer  complex  rules  and  tactics 
to  employ  in  fighting  battles  against  a  computer 
or  a  human  opponent.  They  often  make  use  of 
excellent  computer  graphics  displaying  a 
battlefield  and  tokens  representing  forces  on 
each  side. 

4.  Card  games:  care  to  play  bridge  with  three  com- 
puterized opponents?  The  computer  has  also 
been  programmed  to  play  poker,  gin,  Kalah, 
Tripoli,  solitaire  and  many  other  card  games. 
Card  tricks,  bridge  tutors,  and  poker  betting 
systems  have  also  been  programmed. 

5.  Board  and  word  games:  included  in  this  group 
are  the  old  favorites  of  chess,  backgammon,  and 
checkers  and  the  new-fangled  Clue™,  Mo- 
nopoly™, Boggle™,  and  Scrabble™.  Some  of  the 
word  games  may  be  equipped  with  vocabularies 
of  up  to  90,000  words.  Chess,  checkers,  and 
backgammon  programs  can  already  compete  at 
the  master  level,  and  it  is  only  a  matter  of  time 
before  they  become  reigning  world  champions. 

6.  Gambling  games:  all  the  games  in  Vegas,  from 
one-armed  bandits  to  roulette,  have  been 
adapted  to  the  personal  computer.  For  those 
who  take  gambling  seriously,  programs  are 
available  to  perform  complex  handicapping 
analysis  for  horse  racing  and  football  games  and 
to  do  the  calculations  necessary  for  the  predic- 
tion of  other  sporting  events. 

7.  Sports  games:  football,  baseball,  auto  racing, 
skiing,  and  numerous  other  sports  have  been 
computerized  and  often  include  live  action  with 
complex  graphics. 

8.  Party  games:  many  popular  party  games,  from 
charades  to  spin  the  bottle,  have  been  pro- 
grammed. For  those  willing  to  take  the  advice  of 
a  computerized  sex  analyst,  several  commercial 
programs  will  ask  you  and  your  mate  a  series  of 
questions  and  then  determine  the  optimum 
"interlude,"  for  which  it  provides  explicit  in- 
structions. 


BOARD  AND  STRATEGY  GAMES  YOU  CAN  PROGRAM 

Although  most  of  the  popular  live-action  or 
real-time  games  on  the  market  required  hundreds 
to  thousands  of  man-hours  to  develop,  many 
nonanimated  games  can  be  written  by  the  beginner 
and  are  sometimes  just  as  entertaining  as  the  more 
complex  games.  A  sampling  of  game  ideas  to  tackle 
in  BASIC  follows;  some  would  require  less  than  30 
program  lines,  and  others  are  more  difficult,  possi- 
bly requiring  hundreds  of  lines. 

Board  and  Logic  Games 

Many  popular  board  and  logic  games  take  on  an 
added  dimension  when  computerized,  especially  if 
the  computer  is  programmed  to  be  the  opponent. 
Some  of  the  many  possibilities  include  the  following 
games: 

Tricolor.  Tricolor  is  a  game  played  on  a  hex 
board  with  hexagonal  cells  colored  red,  white,  and 
blue  (or  different  shades).  An  actual  playing  board 
should  be  used  in  the  computerized  version,  be- 
cause creating  a  board  display  on  a  video  screen 
would  be  difficult. 

Each  player  begins  with  18  pieces.  Those  of 
one  player  are  white;  those  of  the  other  are  black. 
At  the  start  of  the  game,  white  places  his  pieces  on 


w  =  white' 

r  =  red   Tcell  colors 

b  =  black) 


Fig.  7-1 .  The  Tricolor  game  board. 
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hexes  1-18,  and  black  on  hexes  44-61  as  shown  in 
Fig.  7-1. 

The  pieces  are  called  stacks  because  you  can 
place  more  than  one  piece  together  to  form  a  stack. 
The  range  of  a  stack,  that  is,  the  maximum  number 
of  cells  it  can  traverse  in  any  one  direction  is  a 
single  move,  is  determined  by  the  number  of  pieces 
in  the  stack;  one  cell  for  a  single  piece,  two  cells  for 
a  stack  of  two  pieces;  and  three  cells  for  any  larger 
stack. 

The  combat  strength  of  a  stack  depends  upon 
both  the  number  of  pieces  it  contains  and  the  color 
(or  shade)  of  the  cell  on  which  it  rests.  Taking  the 
strength  of  a  single  white  piece  on  a  white  cell  as 
the  unit,  the  strength  of  a  stack  of  two  pieces  on  a 
white  cell  is  two  units,  and  the  strength  of  any 
larger  stack  on  a  white  cell  is  three  units.  The 
strength  of  a  stack  on  a  black  cell  is  twice  what  it 
would  be  on  a  white  cell,  and  a  stack  on  a  red  cell  is 
worth  three  times  as  much  as  it  would  be  on  a  white 
cell. 

Players  take  alternate  turns,  each  moving  a 
single  stack  along  a  diagonal  or  horizontal  line  as  far 
as  he  wishes,  within  the  range  of  the  stack.  The 
entire  stack  or  only  a  portion  of  it  can  be  moved;  the 
number  of  pieces  in  the  part  moved  determines  the 
strength  of  the  stack.  Occupied  cells  may  not  be 
jumped,  but  a  player  may  move  his  stack  to  a  cell 
occupied  by  another  stack  owned  by  himself  or  by 
the  opponent.  If  the  stack  is  his  own,  the  stacks  are 
merged.  If  the  opponent  owns  the  other  stack,  an 
"attack"  has  been  initiated,  and  the  disposition  of 
pieces  is  as  follows:  a  stack  may  attack  an  opposing 
stack  only  if  it  is  stronger  (contains  more  pieces).  If 
it  is  more  than  twice  as  strong,  the  opposing  stack  is 
"killed,"  and  all  hostile  pieces  in  the  stack  are 
removed  from  play;  friendly  pieces  are  added  to  the 
winning  stack.  If  the  attacking  stack  is  not  more 
than  twice  as  strong,  it  "captures"  the  opposing 
stack  by  combining  it  with  itself.  If  a  capture  or  kill 
can  be  made  in  a  player's  turn,  it  must  be  made.  The 
game  ends  with  the  capture  or  killing  of  all  of  one 
player's  pieces. 

Black  Sheep.  Black  sheep  is  played  on  a 
chessboard  between  two  players,  one  "white"  and 
the  other  "black."  White  begins  the  game  with  four 


white  checkers  that  are  placed  on  the  four  black 
squares  on  one  side  of  the  chessboard.  Black  uses 
one  black  checker  and  places  it  on  either  of  the 
middle  black  squares  on  the  opposite  side  of  the 
board.  The  white  pieces  may  only  move  forward  to 
the  opposite  side;  black  may  move  forward  or 
backward.  Both  colors  may  only  move  one  square  at 
a  time  and  only  on  the  diagonal. 

Black  moves  first  and  then  moves  alternate. 
The  object  for  black  is  to  reach  the  opposite  side  of 
the  board  without  being  "trapped"  (surrounded  by 
white  pieces  in  such  a  way  that  there  is  no  adjacent 
diagonal  unoccupied  square  to  move  to).  The  ob- 
jective for  white  is  to  trap  black  before  it  reaches 
the  other  side  of  the  board.  Apparently,  no  one  has 
determined  a  winning  strategy  for  this  game;  thus  it 
would  be  challenging  to  develop  a  heuristic  strategy 
for  the  computer  to  play  either  side. 

Jam.  In  this  simple,  yet  challenging  game,  the 
small  circles  in  the  diagram  in  Fig.  7-2  represent 
cities;  the  lines  represent  roads.  Each  road  has  a 
designated  number.  Players  alternate  turns  choos- 
ing one  of  the  nine  roads  as  their  own  property.  The 
winner  is  the  first  to  own  three  roads  that  connect 
directly  with  any  one  city.  The  game  may  be  won 
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Fig.  7-2.  The  Jam  game  board. 
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with  a  mathematical  strategy  similar  to  that  used  in 
tic-tac-toe. 

Hot.  "Hot"  is  a  clever  variation  of  tic-tac-toe. 
The  following  words  are  listed  on  a  computer 
screen:  TANK,  WOES,  SHIP,  WASP,  HOT, 
BRIM,  HEAR,  FORM,  TIED.  Players  take  alter- 
nate turns  picking  one  word  from  the  list;  words  are 
removed  from  the  list  as  they  are  chosen.  The  first 
player  to  pick  three  words  that  contain  the  same 
single  letter  is  the  winner. 

The  game  may  be  analyzed  by  the  computer  in 
the  same  manner  as  tic-tac-toe,  if  the  words  are 
arranged  on  the  board  as  in  this  diagram: 


SHIP 

BRIM 

TIED 

WASP 

HEAR 

TANK 

WOES 

FORM 

HOT 

By  choosing  three  words  in  a  row  horizontally, 
vertically,  or  diagonally,  a  player  can  win  the  game. 
Thus,  the  strategy  for  play  is  the  same  as  in  tic- 
tac-toe,  except  the  player  that  does  not  know  these 
congruencies  is  at  a  disadvantage. 

Bridge-it.  In  the  game  of  Bridge-it,  the  first 
player  is  designated  as  0  and  the  second  player  as  X. 
Using  the  grid  shown  in  Fig.  7-3,  putting  a  con- 
necting line  between  two  horizontally  or  vertically 
adjacent  markers  of  the  player's  symbol.  The  0 
player  attempts  to  form  a  connected  "bridge"  from 
the  top  to  bottom  of  the  board,  while  the  X  player 
attempts  to  form  a  bridge  from  the  left  to  right  side 
of  the  board.  The  first  to  form  a  bridge  wins  the 
game. 

A  winning  strategy  exists  for  this  game  as 
illustrated  in  Fig.  7-4.  For  the  0  player  to  win,  he 
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Fig.  7-3.  The  Bridge-it  game  board. 
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Fig.  7-4.  The  Bridge-it  game  board  showing  a  win  by  X. 


should  put  his  first  line  between  the  0s  at  positions 
9, 2,  and  11,  2  as  shown  in  Fig.  7-5.  The  game  may 
be  won  by  the  0  player  if  the  following  strategy  is 
used.  Whenever  X  joins  a  connecting  line,  the  line 
will  touch  one  of  the  dotted  lines  or  semicircles  in 
Fig.  7-5.  0  should  draw  a  connecting  line  between 
two  0  markers  such  that  the  line  will  touch  the  end 
of  the  dotted  line  just  touched  by  the  line  drawn  by  X 
following  each  X  turn.  In  this  manner,  0  will  inevit- 
ably win. 

Hex.  Hex  is  a  game  similar  to  Bridge-it,  but 
the  game  has  not  been  solved  such  that  a  win  is 
always  certain.  For  this  reason,  hex  would  probably 
be  more  interesting  to  play  against  a  computer.  A 
heuristic  strategy  similar  to  that  used  in  Bridge-it 
could  be  employed. 

One  game  of  Hex  is  played  on  a  board  com- 
posed of  hexagons,  with  eleven  hexagons  on  each 
side  (although  other  sizes  have  been  used).  Two 
opposite  sides  of  the  board  are  named  black,  while 
the  other  two  are  named  white,  as  shown  in  Fig. 
7-6.  The  hexes  at  the  four  junctions  between  sides 
are  neutral.  One  player  has  black  pieces,  the  other 
player  has  white.  Alternate  turns  are  taken,  with 
each  player  placing  one  of  his  pieces  on  any  unoc- 


cupied hexagon.  The  object  for  both  players  is  to 
complete  a  continuous  chain  of  his  pieces  between 
the  two  sides  labeled  by  his  color.  The  game  is 
mathematically  solvable  on  boards  with  certain  di- 
mensions. For  an  interesting  discussion  of  winning 
strategy  and  Hex  variants,  the  reader  is  referred  to 
The  Journal  of  Recreational  Mathematics,  Vol.  8(2), 

1975-1976,  p.  120. 

Cross  Capture.  Cross  Capture  is  played  on  a 
chess  board.  At  the  start  of  the  game,  a  set  of 
randomly  distributed  letters  or  numbers  is  put  on 
the  board  (video  display),  with  no  more  than  one 
character  per  square.  Most  of  the  board  remains 
empty.  A  sample  board  is  shown  in  Fig.  7-7. 
Players  take  turns  choosing  one  of  the  letters,  and 
all  other  letters  on  the  board  that  fall  in  a  given 
category  become  property  of  that  player.  One 
category  may  be  defined  as  all  the  letters  in  the 
same  horizontal,  diagonal,  or  vertical  row  as  the 
chosen  letter  or  as  all  the  letters  within  a  certain 
proximity  to  the  chosen  letter  (for  example,  one 
space  away).  The  player  who  possesses  the  most 
letters  at  the  end  of  the  game  is  declared  the  win- 
ner. 
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Fig.  7-5.  The  Bridge-it  game  board  showing  a  winning 
strategy. 
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Fig.  7-6.  The  Hex  game  board. 


Tic-tac-toe  variation.  An  interesting  tic- 
tac-toe  variation  is  played  as  follows.  Each  player 
puts  his  three  pieces  on  a  tic-tac-toe  board  such  that 
piece  ownership  alternates  around  the  periphery  of 
the  board.  Following  this  setup,  each  player  is  al- 
lowed to  move  one  of  his  pieces  to  an  adjacent 
square.  The  winner  of  the  game  is  the  first  to  make 
three-in-a-row. 

Tuknanavuhpi.  Tuknanavuhpi  is  a  Hopi  In- 
dian chase  game  played  on  a  4  x  4  board  with 
diagonals  drawn  in  each  of  the  16  squares.  Pieces 
move  on  the  points  where  lines  meet  on  the  board, 
not  on  the  squares.  There  are  two  players;  each  one 
has  20  pieces  placed  on  the  board  as  indicated  in  the 
diagram  in  Fig.  7-8.  The  middle  of  the  board  is 
initially  empty. 

Players  take  alternate  turns  moving  their 
pieces  in  any  direction  along  the  lines  on  the  board, 
from  one  intersection  to  another  adjacent  intersec- 
tion. As  in  checkers  pieces  are  captured  by  jumping 
over  any  of  the  opponent's  pieces.  The  winner  is  the 
player  who  has  captured  all  of  his  opponent's 
pieces. 

Many_pther  games  popular  in  other  cultures 
but  undiscovered  in  the  United  States  are  well- 
suited  to  be  computer  games.  These  include 
Teekso,  Hasami  Shogi,  Dreidel,  Bell  and  Hammer, 


Asalto,  Yofe,  Ur,  and  Alquerque,  which  are  refer- 
enced in  game  encyclopedias. 

Nim.  The  game  of  Nim  has  become  a  very 
popular  computer  game.  The  rules  are  simple. 
From  a  pile  of  any  number  of  items  (13  is  the  usual 
number),  players  take  turns  picking  one,  two,  or 
three  items.  The  player  forced  to  pick  up  the  last 
item  loses  the  game.  A  winning  strategy  for  the 
second  player  is  to  ensure  that  with  every  move  you 
leave  the  pile  with  the  number  of  objects  equal  to  9, 
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Fig.  7-8.  The  Tuknanavupi  game  board. 

5,  or  1.  The  program  in  Listing  2-1  plays  and  ex-  Nim  Variations.  Here  are  a  few  games  that 

plains  a  variant  of  Nim.  You  can  adapt  it  to  play  the  can  be  mathematically  analyzed  in  a  manner  similar 

Nim  variations  explained  below.  to  the  way  Nim  has  been  analyzed 


Listing  7-1:  The  Nim  Program 


100 
110 
120 
130 
140 
150 
160 
170 
190 
200 
210 
230 
240 
250 
260 
270 
280 
300 
310 
320 


,C*(5> 
,W*(5> 


REM  NIM 

PR I NT "THERE  ARE 

PRINT"REM0VIN6  1. 

PR I NT "PLAYER  WHO  IS  FORCED 

DIM  C*<5) ,L*(5) ,W*(5) 

READ  C*(1),C*<2),C*(3),C*(4) 

READ  W*(1),W*(2>,W*<3),W*<4). 

PRINT 

PR I NT "DO  YOU  WANT  TO  BO  FIRST"? 

INPUT  Q* 

PRINT 

X=25 

IF  Q$>="Y"  THEN  300 

PRINT" I  CHOOSE  4  STICKS" 

PR I NT "THERE  ARE  NOW  21  STICKS  LEFT 

X=21 

PRINT 

FOR  1=1  TO  10 

GOSUB  380 

IF  X=l  THEN  650 


STICKS  IN  A  PILE.  PLAYERS  TAKE  TURNS 
',  3,  OR  4  STICKS  FROM  THE  PILE.  THE" 
TO  TAKE  THE  LAST  STICK  LOSES. 


L*(1),L*(2),L*(3),L*(5) 
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330  IF  X<1  THEN  760 

340  GOSUB  490 

350  IF  X=l  THEN  760 

360  NEXT  I 

370  REM  NO.  OF  STICKS  OPPONENT  TAKES 

380  PR I NT "HOW  MANY  STICKS  DO  YOU  WANT"; 

390  INPUT  N 

400  IF  NO  INT  (N)  THEN  450 

410  IF  N<1  THEN  450 

420  IF  NOINT(N)  THEN  450 

430  X=X-N 

440  RETURN 

450  PRINTC$<RND<5)) 

460  PRINT 

470  GOTO  380 

480  REM  NO.  OF  STICKS  I  TAKE 

490  N=X-5*INT< (X-l)/5)-l 

500  IF  INT(  (X-D/5XXX-D/5  THEN  520 

510  N=RND(5) 

520  X=X-N 

530  IF  N>1  THEN  560 

540  PR I NT "I  CHOOSE  1  STICK" 

550  GOTO  600 

560  PR  I  NT  "I  CHOOSE  ";N;"  STICKS." 

570  IF  X>1  THEN  600 

580  PR I NT "THERE  IS  ONE  STICK  LEFT" 

590  GOTO  610 

600  PR I NT "THERE  ARE  NOW  ";X?"  STICKS  LEFT" 

610  PRINT 

630  RETURN 

640  REM  —  HE  WINS  

650  PRINT  L*(RND<5)> 

660  PRINT 

700  PR I NT "LETS  PLAY  ANOTHER  GAME" 

710  PRINT-SINCE  YOU  WENT  FIRST  LAST  TIME,  i  WILL  60  FIRST" 

720  PRINT 

740  GOTO  250 

750  REM I  WIN 

760  PRINT  W*(RND<5) ) 

770  F=F+1 

780  IF  F>5  THEN  950 

790  PRINT 

810  PR I NT "DO  YOU  WANT  TO  PLAY  ANOTHER  GAME"; 

820  INPUT  R* 

830  IF  R*>="Y"  THEN  170 

840  REM  REMARKS  IF  OPPONENT  TAKE  ILLEGAL  NUMBER  OF  STICKS 

850  DATA  DON'T  TRY  THAT  AGAIN, I  CAN  NOT  ALLOW  THAT,  I  THINK  YOU 

ARE  TRYING  TO  CHEAT 

860  DATA  DID  YOU  READ  THE  DIRECTIONS? 

870  DATA  WHY  NOT  GIVE  UP? 

880  REM  REMARKS  IF  OPPONENT  WINS 

890  DATA  I  CAN  BEAT  YOU-  WATCH  THIS. .., YOU' RE  BETTER  THAN  I  EXPE 
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CTED 

900  DATA  HOW  LUCKY  CAN  YOU 

GET, I  WAS  NOT  PAY I NO  ATTENTION, NOBODY 

IS  PERFECT 

920  REM REMARKS  IF  I 

WIN 

930  DATA  I  AM  SUPERIOR, YOU 

LOST!, I  BUESS  I  WON, THE  SOOD  BUYS  WIN 

AGAIN 

940  DATA  THE  SOOD  BUYS  WIN 

ASA IN, PLEASE  DON'T  BET  ANBRY 

950  END, 

Rectangular  dominoes:  players  take  turns  placing 
dominoes  on  a  chess-type  board  or  a  board  of 
arbitrary  size  (8  x  8  is  fine).  The  board  is  of  a  size 
such  that  a  domino  placed  horizontally  or  verti- 
cally on  it  will  cover  up  exactly  two  squares.  The 
first  player  places  his  dominoes  horizontally,  the 
second  player  places  his  vertically;  dominoes 
may  not  overlap.  The  winner  of  the  game  is  the 
player  who  makes  the  last  possible  move.  Figure 
7-9  shows  a  sample  game. 
Welter:  the  board  for  this  game  consists  of  an 
arbitrary  number  of  squares  in  one  line  (usually 
about  twenty).  An  arbitrary  number  of  tokens  are 
randomly  placed  in  the  squares,  with  only  one 
token  in  each  square  (there  are  usually  about  five 
tokens).  A  sample  game  is  shown  in  Fig.  7-10. 
Players  take  turns  moving  a  single  token  to  any 


unoccupied  square  to  the  left,  jumping  over  other 
tokens  if  desired.  The  player  who  makes  the  last 
move  wins  the  game. 

•  Traffic  Jam:  the  game  board  in  Fig.  7-11,  repre- 
sents one-way  roads  between  towns.  An  arbit- 
rary number  of  vehicles  are  placed  on  the  board  to 
set-up  the  game.  Players  take  turns  moving  one 
of  the  vehicles  in  the  proper  direction  from  one 
town  to  an  adjacent  town.  The  game  continues 
until  a  traffic  jam  develops,  in  which  no  further 
moves  are  possible;  the  player  who  makes  the 
final  move  is  declared  the  winner. 

•  Innocent  Marble  game:  in  this  game,  either  zero, 
two,  or  four  markers  may  be  placed  in  the  circles 
on  the  game  board  shown  in  Fig.  7-12;  only  one 
marker  may  be  in  any  one  circle.  Players  take 
turns  moving  any  one  marker  from  one  circle  to 


Fig.  7-9.  A  sample  Rectangular  Dominoes  game. 
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Fig.  7-10.  A  sample  Welter  game. 

an  adjacent  one,  in  the  directions  of  the  arrows. 
Whenever  a  marker  is  moved  to  a  circle  that  is 
already  occupied,  both  markers  are  removed 
from  play.  The  winner  is  the  player  making  the 
last  possible  move. 

•  Tsyanshidzi:  this  is  the  Chinese  national  game 
in  which  players  may  select  from  two  piles  of 
objects  either  an  arbitrary  number  of  objects 
from  one  pile  or  the  same  number  of  objects  from 
each  pile,  but  no  fewer  than  one  object  from  each 
pile.  As  always,  the  player  taking  all  remaining 
objects  wins.  This  game  requires  a  more  com- 
plex analysis  than  the  simple  game  of  Nim  does. 

•  Acey-ducey:  in  this  game  the  computer  "shuf- 
fles" a  card  deck  and  deals  two  cards.  The  player 
then  bets  against  the  computer,  wagering  that  the 
next  card  dealt  will  fill  in  between  the  first  two 
cards  in  rank.  Can  you  determine  the  mathemati- 
cal strategy  behind  a  winning  program? 

Neutron.  Neutron  is  a  two-player  game 
played  on  a  5  x  5  grid,  as  shown  in  Fig.  7-13.  At  the 
start  of  the  game,  White  owns  the  five  pawns  at  the 
top,  and  Black  the  five  pawns  at  the  bottom.  The 


Fig.  7-1 1 .  The  Traffic  Jam  game  board. 


Fig.  7-12.  The  Innocent  Marble  game  board. 

neutron  (n)  begins  at  the  center  and  is  neutral.  Each 
turn  has  two  parts:  first,  the  player  must  move  the 
neutron  in  any  one  direction,  and  then  the  player 
must  move  one  of  his  pawns  in  any  direction.  The 
winner  is  the  first  to  maneuver  the  neutron  to  his 
back  row,  whether  moved  by  himself  or  by  forcing 
the  opponent  to  do  so.  You  can  also  win  by 
stalemating  an  opponent— that  is,  by  trapping  him 
so  that  he  can  not  complete  his  turn.  For  instance,  if 
Black  can  completely  surround  the  neutron  with  his 
pawns  so  that  White  can  not  complete  his  turn, 
Black  wins.  There  is  another  thing  to  remember: 
any  time  a  pawn  or  neutron  is  moved,  it  must  be 
moved  as  far  as  it  can  go  in  a  straight  line  (within  the 
game  board  confines).  A  piece  stops  just  before  it 
reaches  another  piece  of  wall.  Also,  to  even  things 
out,  White  moves  first  but  does  not  move  the  neut- 
ron on  this  first  turn.  A  program  to  play  Neutron 
would  be  based  on  tree-searching  principles,  as 
described  in  most  artificial  intelligence  books  and  in 
the  Etudes  for  Programmers  (Wetherell, 
Prentice-Hall,  1978).  This  would  be  an  ideal  pre- 
lude in  programming  for  those  interested  in  com- 
puter chess. 

Hexpawn.  This  game  was  first  introduced  by 
Martin  Gardener  in  Scientific  American  (Volume 
200,  No.  3).  The  game  is  played  on  a  3  x3  grid  as  in 
tic-tac-toe.  The  two  players  each  place  their  three 
pieces  as  shown  in  the  first  diagram  in  Fig.  7-14. 
The  pieces  move  in  a  manner  similar  to  the  way 
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pawns  move  in  chess,  that  is,  they  move  one  space 
diagonally  to  capture  and  remove  an  opponent's 
piece.  Players  alternate  turns,  and  the  winner  is  the 
first  player  to  reach  the  opponent's  side  of  the  board 
with  a  piece  or  the  remaining  player  when  the  oppo- 
nent has  no  legal  move. 

Hexpawn  presents  an  excellent  opportunity  to 
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Fig.  7-13.  The  Neutron  game  board. 


Fig.  7-14.  The  Hexpawn  game  board. 
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write  a  program  that  learns  as  it  plays,  because  the 
number  of  different  ways  to  play  is  small.  Consider 
the  game  shown  in  the  third  diagram  in  Fig.  7-14. 
The  computer  must  choose  between  one  of  the  four 
moves  indicated.  If  number  4  is  chosen  and  leads  to 
defeat,  this  information  is  stored  and  the  mistake  is 
not  repeated  in  the  future.  The  computer  continues 
to  randomly  select  legal  moves,  provided  these 
moves  have  not  proven  fatal  in  previous  games, 
until  it  becomes  a  perfect  player. 

Countdown.  How's  your  sense  of  timing? 
One  or  two  players  can  test  their  skill  with  the 
computer  serving  as  timekeeper  and  scorekeeper. 
First,  the  computer  chooses  and  displays  a  random 
amount  of  time  (say,  from  five  to  sixty  seconds). 
Each  player  then  presses  a  key  when  he  or  she 
thinks  that  amount  of  time  has  elapsed.  The  person 
who  is  closer  is  declared  winner.  Computers  can 
execute  a  FOR-NEXT  loop  while  the  time  is  elaps- 
ing and  from  the  number  of  executions  multiplied  by 
a  time  factor,  determine  the  time  elapsed.  A  varia- 


tion of  this  game  could  test  reaction  time  of  two 
players;  as  soon  as  the  word  GO  is  displayed,  the 
two  players  race  to  push  their  own  keys,  and  the 
computer  determines  who  reacted  faster. 

Mill.  Mill  is  a  two  player  game  using  the  board 
shown  in  Fig.  7-15.  Players  alternate  turns,  placing 
one  of  their  nine  pieces  on  any  of  the  corners  or 
intersections  of  lines  on  the  board.  The  moment 
one  player  gets  three  pieces  in  line,  he  may  remove 
an  opposing  piece,  provided  that  piece  is  not  part  of 
three  in  a  row  already. 

After  each  player's  nine  pieces  are  placed, 
they  may  be  moved  one  at  a  time  to  a  vacant  and 
adjacent  corner  or  intersection.  If  any  other  lines  of 
three  are  formed,  another  opposing  piece  may  be 
removed.  If  a  player  has  only  three  pieces  on  the 
board,  he  may  move  any  one  piece  to  any  corner  or 
intersection  during  his  turn.  The  first  player  to  be 
left  with  only  two  pieces  is  the  loser. 

Marked  Square  Game.  In  this  simple  game, 
the  game  board  is  a  9x9  grid.  Players  alternately 


Fig.  7-15.  The  Mill  game  board. 
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mark  one  square  with  their  initials.  Attheendofthe  menacing  the  United  Federation  of  Planets.  Youare 

game  when  all  squares  are  filled,  players  receive  1,  given  a  specified  number  of  stardates  to  complete 

2,  or  3  points  (respectively)  for  3,  6,  or  9  squares  your  mission,  lest  the  empire  be  destroyed.  Fortu- 

with  their  initials  in  a  row;  the  player  with  the  most  nately,  you  have  a  few  star  bases  for  reapplying 

points  wins.   The  computer  could  serve  as  your  ship,  although  you  must  find  them.  You  are 

scorekeeper  or  opponent.  assigned  a  random  starting  position  in  the  galaxy, 

which  is  divided  into  an  8x8  quadrant  grid.  Each 

Star  Fiffht  quadrant  is  subdivided  into  an  8x8  section  grid. 

The  program  will  explain  the  12  command  options, 

One  of  the  earliest  and  most  popular  computer  which  include  firing  weapons,  maneuvering,  using 

games  is  based  upon  the  famous  television  series  clock  devices,  and  heaven-forbid,  self-destructing. 

Star  Trek.  In  this  strategy  game  you  are  captain  of  The  version  in  Listing  7-2  is  one  of  the  most  com- 

the  starship  Enterprise,  and  you  have  been  as-  plete  in  print  and  consumes  about  20K  of  memory, 

signed  the  task  of  seeking  and  destroying  a  fleet  of  Because  it  is  written  in  BASIC,  it  can  easily  be 

Klingon  warships  (usually  around  20)  that  are  modified  until  the  universe  is  to  your  liking. 


Listing  7-2:  The  Star  Fight  Program 

I  CLS:PRINT  TAB(20)"STAR  FIGHT" 
5  REM 

9  H1=0 : F=0 : R=0 : D2=0 : D3=0 : B1=0 : B2=0 : C=0 : C1=0 : P=0 : S=0 

II  LET  B$="PHASER  BANKS" 

13  LET  C$="CLOAK  ACTIVATED**" 

15  LET  K$="KLINGON  " 

17  LET  E$="ENGINEERING  REPORTS  " 

19  LET  P$=" PHOTON  TORPEDOES  " 

21  LET  D$=", DAMAGE  REPORT-" 

23  LET  H$="HIGH  ENERGY  PLASMA  BOLT" 

25  LET  G$=" DAMAGED" 

27  LET  P3=1.5 

29  LET  Rl=l 

31  PRINT  "SPACE—THE  FINAL  FRONTIER.   THESE  ARE  THE  VOYAGES  OF" 

33  PRINT  "THE  STARSHIP  ENTERPRIZE,  HER  FIVE  YEAR  MISSION--" 

35  PRINT  "TO  EXPLORE  STRANGE  NEW  WORLDS,  TO  SEEK  OUT  NEW  LIFE  AND 

NEW 

37  PRINT  "CIVILIZATION,  TO  BOLDLY  GO  WHERE  NO  MAN  HAS  GONE  BEFORE." 

39  PRINT  "(SWISH,  TRUMPETS)" 

41  PRINT 

43  PRINT 

45  LET  Q=INT(10*RND(0)) 

47  PRINT  "YOU  ARE  ON  PATROL  IN  ARCTURUS  SECTOR" ;Q; "WHEN  YOU" 

49  PRINT  "PICK  UP  UNEXPECTED  SENSOR  READINGS,  CONFIGURATION " 

51  PRINT  "  KLINGON  BATTLE  CRUISERS" 

53  PRINT  "DO  YOU  NEED  A  SUMMARY  OF  YOUR  SHIP'S  CAPABILITIES"; 

55  INPUT  A$ 

57  IF  A$="NO"  THEN  91 

59  PRINT  "CAPABILITIES  OF  THE  USS  ENTERPRI Z E . " 

61  PRINT  "AFTER  THE  QUESTION  MARK  TYPE  TWO  DIGITS  SEPARATED  BY  COM 

MAS" 

63  PRINT  "EXAMPLE:0,0.   FIRST  DIGIT  IS  THE  OPTION." 
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65 

67 

69 

71 

73 

75 

77 

79 

81 

83 

85 

87 

89 

91 

93 

95 

97 

99 

101 

103 

105 

107 

109 

111 

113 

115 

117 

119 

121 

123 

125 

127 

129 

131 

133 

135 

137 

139 

141 

143 

145 

147 

149 

151 

153 

155 

157 

159 

161 

163 

165 

167 

169 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
LET 
IF 


'       SECOND  DIGIT 

'COMMAND  OPTIONS: 1) 

2) 

3) 

4) 

5) 

6) 

7) 

11) 

12) 

13) 

14) 

15) 


IS  THE  SHIP  TO  ATTACK." 
FIRES  PHASER." 
FIRES  SECRET  WEAPON." 
FIRES  FRONT  PHOTON  TORPEDOES." 
FIRES  REAR  PHOTON  TORPEDOES." 
FIRES  HIGH  ENERGY  PLASMA  BOLT." 
ACTIVATES  SELF-DESTRUCT." 
FOR  CHANGE  OF  WARP  SPEED." 
ACTIVATES  CLOAKING  DEVICE" 
DEACTIVATES  CLOAKING  DEVICE" 
TURNS  SHIP  180  DEGREES." 
DIVERTS  POWER  TO  REPAIRS." 
DIVERTS  POWER  TO  WEAPONS." 


"HOW  MANY  KLINGONS  DO  YOU  WANT  TO  TAKE  ON"; 

Nl 
N1=INT(N1) 
N1>0  THEN  107 


PRINT  "THE  KLINGONS"; 

GOTO  111 

IF  NK6  THEN  115 

PRINT  "THE  KLINGONS  ONLY" 

PRINT  "HAVE  5  BATTLE  CRUISERS  IN  THIS  QUADRANT" 

GOTO  95 

IF  Nl=l  THEN  125 

IF  Nl>2  THEN  121 

LET  S=H(1)=H(2)=-1 

PRINT  Nl; "KLINGONS"; 

GOTO  129 

PRINT  N1;K$; 

LET  S=H(l)=-3 

PRINT  "  COMING  INTO  RANGE — SHIELDS  ON" 

PRINT 

FOR  1=1  TO  Nl 

LET  R(I)=400000i+(RND(0)*200000!) 

LET  A(I)=360*(RND(0)) 

PRINT  "RANGE  OF  " ;K$; I; "=" ;R(I) ; "KM.  AT" ;A(I) ; "DEGREES" 
NEXT  I 
LET  S=0 
P3=1.5 
Rl=l 

GOTO  363 
LET  M=D1=N2=0 

PRINT  "YOUR  MOVE:  DIRECTED  AT  ";K$; 
INPUT  M1,K 
LET  K=INT(K) 
LET  M1=INT(M1) 
IF  M1>0  THEN  167 
GOSUB  959 
GOTO  521 

IF  Ml>16  THEN  373 
IF  K>N1  THEN  373 
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171    IF  MK14   THEN   175 

173   ON    (Ml-13)    GOTO   349,357,145 

175  ON  Ml  GOTO  217,217,177,183,217,219,219,217,219,219,219,327,335 

177  IF  F>=20  THEN  393 

179  IF  A(K)>180  THEN  373 

181  GOTO  187 

183  IF  R>=10  THEN  403 

185  IF  A(K)<180  THEN  373 

187  IF  R(K)<200000!  THEN  373 

189  IF  R(K)>600000I  THEN  373 

191  IF  Hl>=9  THEN  373 

193  IF  C(K)=1  THEN  373 

195  IF  NlOl  THEN  201 

197  LET  N2=l 

199  GOTO  219 

201  PRINT  "HOW  MANY  ,I;P$;"  DO  YOU  WANT  TO  FIRE"; 

203  INPUT  N2 

205  LET  N2=INT(N2) 

207  IF  N2>(N1*2)-1  THEN  381 

209  IF  N2<1  THEN  381 

211  IF  C=l  THEN  215 

213  GOTO  217 

215  IF  N2>5  THEN  377 

217  IF  C(K)=1  THEN  373 

219  ON  Ml  GOTO  221,237,243,253,259,859,897,949,945,295,319 

221  IF  R(K)>300000!  THEN  373 

223  IF  A(K)>180  THEN  373 

225  IF  Hl>=8  THEN  373 

227  LET  N3=2/M1 

229  LET  P=P+N3 

231  GOSUB  959 

233  LET  N2=N3 

235  GOTO  445 

237  IF  R(K)>300000!  THEN  373 

239  IF  A(K)<180  THEN  373 

241  GOTO  225 

243  LET  F=F+N2 

245  IF  F>20  THEN  387 

247  LET  P=P+N2 

249  GOSUB  959 

251  GOTO  445 

253  LET  R=R+N2 

255  IF  R>10  THEN  397 

257  GOTO  247 

259  IF  Hl>=8  THEN  373 

261  IF  C=l  THEN  373 

263  IF  R(K)<100000!  THEN  373 

265  IF  R(K)>300000!  THEN  373 

267  LET  B1=B1+1 

269  IF  Bl>5  THEN  407 

271  LET  P=P+3 

273  GOSUB  959 

275  LET  B=RND(0) 
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277  IF  B>.7  THEN  283 

279  IF  B>.2  THEN  289 

281  GOTO  513 

283  PRINT  "DIRECT  HIT  ON  ";K$;K 

285  LET  H(K)=H(K)+4 

287  GOTO  475 

289  PRINT  "HIT  ON  n;K$;K 

291  LET  H(K)=H(K)+2 

293  GOTO  475 

295  IF  Hl>=7  THEN  373 

297  IF  HK5  THEN  373 

299  PRINT  "HOW  MANY  MILLION  STROMS  DO  YOU  WANT  TO  USE  "; 

301  INPUT  PI 

303  LET  P1=INT(P1) 

305  IF  PKO  THEN  373 

307  LET  P=P+P1 

309  GOSUB  959 

311  LET  H1=H1-(P1*.5) 

313  IF  Hl>=5  THEN  521 

315  PRINT  "SHIELDS  FIRMING  UP" 

317  GOTO  521 

319  IF  C=l  THEN  373 

321  LET  C=l 

323  PRINT  C$ 

325  GOTO  151 

327  IF  C=0  THEN  373  < 

329  PRINT  "CLOAK  DEACTIVATED" 

331  LET  C=0 

333  GOTO  153 

335  IF  C(K)=1  THEN  373 

337  IF  A(K)<180  THEN  343 

339  LET  A(K)=A(K)-180 

341  GOTO  345 

343  LET  A(K)=A(K)+180 

345  PRINT  K$;K;"NOW  AT" ;A(K) ; "DEGREES" 

347  GOTO  153 

349  LET  Rl=2 

351  LET  P3=.5 

353  PRINT  "POWER  DIVERTED  TO  REPAIRS" 

355  GOTO  151 

357  LET  P3=2.5 

359  PRINT  "POWER  DIVERTED  TO  WEAPONS" 

361  GOTO  151 

363  IF  COl  THEN  367 

365  PRINT  C$; 

367  IF  P3=2.5  THEN  359 

369  IF  P3=.5  THEN  353 

371  GOTO  151 

373  PRINT  "MOVE  IMPOSSIBLE,  TRY  AGAIN" 

375  GOTO  153 

377  PRINT  "WITH  THE  CLOAK  ACTIVATED  ONLY  5  ";P$;"  MAY" 

379  GOTO  383 
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381  PRINT  "WITH";N1;"KLING0NS  ONLY" ; (Nl*2) -1;P$"  MAY" 

383  PRINT  "BE  FIRED  AT  A  TIME" 

385  GOTO  151 

387  LET  F=F-N2 

389  PRINT  "ONLY" ;20-F; "FORWARD  " ;P$;"  LEFT" 

391  GOTO  151 

393  PRINT  "OUT  OF  FORWARD  ";P$ 

395  GOTO  153 

397  LET  R=R-N2 

399  PRINT  " ONLY ";10-R;" REAR  ";P$;"  LEFT" 

401  GOTO  151 

403  PRINT  "OUT  OF  REAR  ";P$ 

405  GOTO  153 

407  PRINT  "OUT  OF  ";H$;"  S" 

409  GOTO  153 

411  PRINT  "SECONDARY  DILITHIUM  CIRCUIT  FUSED" 

413  PRINT  "IMPULSE  POWER  ONLY — LIMIT  2  MILLION  STROMS" 

415  PRINT  "WARNING — IF  CAPACITY  OF  IMPULSE  ENGINE  IS  EXCEEDED,  IT  W 

ILL  IMPLODE 

417  LET  Cl=2 

419  GOTO  427 

421  PRINT  "PRIMARY  DILITHIUM  CIRCUIT  FUSED,  SWITCHING  TO  SECONDARY" 

423  PRINT  "OVERLOAD  CAPACITY  FOR  THIS  CIRCUIT  IS  10  MILLION  STROMS" 

425  LET  Cl=l 

427  LET  P=0 

429  IF  Ml=5  THEN  441 

431  IF  Ml=3  THEN  437 

433  LET  R=R-N2 

435  GOTO  153 

437  LET  F=F-N2 

439  GOTO  153 

441  B1=B1-1 

443  GOTO  153 

445  FOR  1=1  TO  N2 

447    B=RND(0) 

449    IF  B>(R(K)*.0000005+.55)  THEN  457 

451    IF  B>(R(K)*.0000005+.25)  THEN  463 

453    M=M+1 

455   GOTO  467 

457    H(K)=H(K)+2 

459    PRINT  "DIRECT  HIT**"; 

461    GOTO  467 

463    H(K)=H(K)+1 

465    PRINT  "HIT**" 

467    IF  H(K)>=8  THEN  473 

469  NEXT  I 

471  IF  M=N2  THEN  513 

473  PRINT 

475  IF  H(K)<6  THEN  479 

477  F(K)=F(K)+1 

479  PRINT  "DAMAGE  TO  ";K$;K;  "IN  THIS  ATTACK — "; 

481  IF  H(K)>8  THEN  505 

483  ON  INT(H(K))  GOTO  485,485,489,489,493,497,501 


174 


485  PRINT  "SHIELDS  HOLDING,  NO  DAMAGE" 

487  GOTO  515 

489  PRINT  "SHIELDS  WEAKENING,  MINOR  DAMAGE" 

491  GOTO  515 

493  PRINT  "ALL  SHIELDS  DESTROYED" 

495  GOTO  515 

497  PRINT  B$;n  DEACTIVATED" 

499  GOTO  515 

501  PRINT  "ALL  WEAPONS  DEACTIVATED" 

503  GOTO  515 

505  PRINT 

507  PRINT  "*****" ;K$;K; "DESTROYED*******" 

509  C(K)=1 

511  GOTO  521 

513  PRINT  "NEAR  MISS" 

515  IF  F(K)<>3  THEN  521 

517  PRINT  K$;K;"CAN  NO  LONGER  REPAIR  ITSELF" 

519  F(K)=4 

521  IF  Hl>=9  THEN  527 

523  P=P-P3 

525  GOTO  529 

527  P=P-P3-.5 

529  IF  D>4  THEN  589 

531  IF  P3=2.5  THEN  589 

533  FOR  1=1  TO  Rl 

535    Zl=Hl-.5 

537    IF  Zl>-1  THEN  543 

539    Hl=-1 

541   GOTO  545 

543    Hl=Hl-.5 

545    IF  Hl=9.5  THEN  549 

547    GOTO  551 

549    IF  Cl<>2  THEN  561 

551    IF  Hl=8.5  THEN  565 

553    IF  Hl=7.5  THEN  577 

555    IF  Hl=6.5  THEN  581 

557    IF  Hl=4.5  THEN  585 

559    GOTO  587 

561    PRINT  "E$;"  WARP  ENGINES  REPAIRED" 

563    GOTO  587 

565    IF  F<20  THEN  569 

567    IF  R>=10  THEN  573 

569    PRINT  E$;P$;"  PROJECTORS  REPAIRED" 

571    GOTO  587 

573    PRINT  E$;"  NORMAL  POWER  LEVELS  RESTORED" 

575    GOTO  587 

577    PRINT  E$;B$;"  REPAIRED" 

579   GOTO  587 

581    PRINT  E$;"  SHIELDS  RESTORED  AT  A  LOW  POWER  LEVEL" 

583    GOTO  587 

585    PRINT  E$;"  SHIELDS  FIRMING  UP" 

587  NEXT  I 

589  FOR  K=l  TO  Nl 
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591  IF  C(K)=1  THEN  707 

593  IF  C=0  THEN  601 

595  IF  M1=0  THEN  631 

597  IF  H(K)>5  THEN  635 

599  IF  F(K)>2  THEN  635 

601  IF  R(K)<=500000!  THEN  605 

603  IF  H(K)<7  THEN  621 

605  IF  R(K)>=1000000!  THEN  609 

607  IF  H(K)>=7  THEN  635 

609  IF  R(K)>=200000!  THEN  613 

611  IF  H(K)>6  THEN  635 

613  IF  R(K)>=300000!  THEN  617 

615  IF  H(K)<6  THEN  653 

617  IF  R(K)>=200000!  THEN  621 

619  IF  T(K) <10  THEN  691 

621  IF  H(K)<6  THEN  625 

623  IF  T(K)=10  THEN  635 

625  R(K)=R(K)/2 

627  PRINT  K$;K; "APPROACHING" 

629  GOTO  709 

631  PRINT  K$;K; "DOING  NOTHING" 

633  GOTO  717 

635  IF  H(K)>=7  THEN  641 

637  R(K)=R(K) +200000 !+RND(0)*100000! 

639  GOTO  643 

641  R(K)=R(K) +100000 !+RND*50000! 

643  PRINT  K$;K; "ATTEMPTING  TO  BREAK  CONTACT" 

645  IF  R(K)<1000000!  THEN  709 

647  PRINT  K$;K;"OUT  OF  SENSOR  RANGE — CONTACT  BROKEN" 

649  C(K)=D(K)=1 

651  GOTO  707 

653  IF  Nl>2  THEN  657 

655  IF  RND<.7  THEN  661 

657  PRINT  K$;K; "FIRES  PHASERS  AT  ENTERPRIZE" 

659  GOTO  787 

661  IF  B2=10  THEN  657 

663  IF  R(K)<100000!  THEN  657 

665  B2=B2+1 

667  IF  B2=10  THEN  673 

669  PRINT  K$;K; "LAUNCHES  ";H$ 

671  GOTO  675 

673  PRINT  K$;K;"  LAUNCHES  ITS  LAST  ";H$ 

675  B=RND(0) 

677  IF  B>.7+C*.3  THEN  687 

679  IF  B>.2+C*.4  THEN  683 

681  GOTO  795 

683  H1=H1+1 

685  GOTO  805 

687  Hl=Hl+2 

689  GOTO  799 

691  IF  Nl>2  THEN  695 

693  IF  RND(0)>.4  THEN  621 

695  T(K)=T(K)+1 
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697    IF  T(K)=10  THEN  703 

699    PRINT  K$;K;"FIRES  ";P$ 

701    GOTO  787 

703    PRINT  K$;K; FIRES  ITS  LAST  ";P$ 

705   GOTO  787 

707    D1=D1+1 

709    IF  D<4  THEN  717 

711    IF  D>9  THEN  717 

713    PRINT  E$;"  FURTHER  MAJOR  REPAIRS  IMPOSSIBLE" 

715    D=10 

717  NEXT  K 

719  IF  D1>=N1  THEN  977 

721  PRINT 

723  FOR  J=l  TO  Nl 

725    IF  C(J)=1  THEN  741 

727    R(J)=R(J)-RND(0)*1000 

729    IF  R(J)>1000  THEN  733 

731    R(J)=R(J)+RND(0)*10000 

733    A(J)=A(J)-(5*RND) 

735    IF  A(J)>10  THEN  739 

737    A(J)=A(J)+(RND(0)*20) 

739    PRINT  "RANGE  OF  " ;K$; J; "=" ;R(J) ; "KM.  AT" ;A( J) ; "DEGREES" 

741  NEXT  J 

743  FOR  1=1  TO  Nl 

745    IF  C(I)=1  THEN  781 

747    IF  F(I)>=3  THEN  781 

749    H(I)=H(I)-.5 

751    IF  H(I)>S  THEN  755 

753    H(I)=S 

755    IF  H(I)<>6.5  THEN  759 

757    IF  T(I)<10  THEN  767 

759    IF  H(I)=5.5  THEN  771 

761    IF  H(I)=4.5  THEN  775 

763    IF  H(I)=2.5  THEN  779 

765   GOTO  781 

767    PRINT  K$;I;  "HAS  REPAIRED  ITS  PHOTON  TORPEDO  PROJECTORS* 

769    GOTO  781 

771    PRINT  K$;I;"HAS  REPAIRED  ITS  ";B$ 

773    GOTO  781 

775    PRINT  K$;I;"HAS  RESTORED  ITS  SHIELDS  AT  LOW  POWER" 

777    GOTO  781 

779    PRINT  K$;I;"HAS  RESTORED  ITS  SHIELDS  TO  FULL  POWER" 

781  NEXT  I 

783  PRINT  "YOUR  CURRENT  POWER  OVERLOAD  IS" ;P; "MILLION  STROMS" 

785  GOTO  363 

787  B=RND(0) 

789  IF  B>(R(K)*.0000005+.6+C*4)  THEN  799 

791  IF  B>(R(K)*.0000005+.3+C*.2)  THEN  805 

793  IF  B>.3  THEN  811 

795  PRINT  "NEAR  MISS" 

797  GOTO  709 

799  PRINT  "DIRECT  HIT  ON  USS  ENTERPRIZE  ";D$; 
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801  Hl=Hl+2 

803  GOTO  817 

805  PRINT  "HIT  ON  USS  ENTERPRIZE  ";D$; 

807  H1=H1+1 

809  GOTO  817 

811  IF  M1<=0  THEN  795 

813  PRINT  "YOU  OUT  MANEUVERED  HIM,  A  MISS" 

815  GOTO  709 

817    IF  HK8   THEN   821 

819   D=D+1 

821  IF  H1>=11  THEN  853 

823  IF  HK5  THEN  827 

825  ON  INT(Hl-4)  GOTO  831,831,835,839,843,849,853 

827  PRINT  "SHIELDS  HOLDING,  NO  DAMAGE" 

829  GOTO  709 

831  PRINT  "SHIELDS  WEAKENING" 

833  GOTO  709 

835  PRINT  "ALL  SHIELDS  DESTROYED" 

837  GOTO  709 

839  PRINT  B$;n  DEACTIVATED,  " 

841  GOTO  835 

843  PRINT 

845  PRINT  "ALL  WEAPONS,  SHIELDS  DEACTIVATED,  POWER  DROPPING" 

847  GOTO  709 

849  PRINT  "WARP  POWER  GONE," 

851  GOTO  845 

853  PRINT  "USS  ENTERPRIZE  DESTROYED" 

855  D2=l 

857  GOTO  977 

859   PRINT  TAB (15) "A  CTIVATED" 

861   Rl=9800*RND(0)+200 

863  PRINT  "RADIUS  OF  EXPLOSION=" ;R1; "KM." 

865  FOR  1=1  TO  Nl 

867    IF  C(I)=1  THEN  889 

869    IF  R(I)>R1  THEN  889 

871    IF  R(I)>R1*.8  THEN  879 

873    PRINT  K$; I, -"DESTROYED"; 

875   C(I)=1 

877   GOTO  887 

879    H(I)=H(I)+6 

881    IF  H(I)>=8  THEN  873 

883    F(I)=F(I)+1 

885    PRINT  K$; I, -"HEAVILY  ";G$; 

887    PRINT  "  BY  THE  BLAST" 

889  NEXT  I 

891  GOTO  855 

893  PRINT  "IMPULSE  ENGINE  OVERLOAD" 

895  GOTO  861 

897  IF  Cl=2  THEN  373 

899  IF  Hl>=10  THEN  373 

901  PRINT  "HOW  FAST  DO  YOU  WANT  TO  GO,  WARP  1-8"; 

903  INPUT  W 
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905  IF  W<0  THEN  373 

907  IF  W>8  THEN  373 

909  P=P+W 

911  GOSUB  959 

913  IF  Ml<>9  THEN  917 

915  W=2 

917  FOR  1=1  TO  Nl 

919    IF  C(I)=1  THEN  941 

921    R(I)=R(I)+W*100000!-RND(0)*50000! 

923    IF  R(I)>1000000!  THEN  931 

925    IF  A(I)>180  THEN  941 

927    A(I)=A(I)+180 

929   GOTO  941 

931    C(I)=1 

933    D(I)=2 

935    IF  H(I)<7  THEN  939 

937    D(I)=1 

939    PRINT  "LOST  CONTACT  WITH  ";K$;I 

941  NEXT  I 

943  GOTO  521 

945  W=l 

947  GOTO  909 

949  P=P+1 

951  GOSUB  959 

953  R(K)=R(K)/2 

955  A(K)=A(K)/2 

957  GOTO  521 

959  IF  COl  THEN  963 

961  P=P+3 

963  IF  P<=20  THEN  967 

965  IF  C1=0  THEN  421 

967  IF  P<=10  THEN  971 

969  IF  Cl=l  THEN  411 

971  IF  P<=2  THEN  975 

973  IF  Cl=2  THEN  893 

975  RETURN 

977  PRINT 

979  PRINT 

981  PRINT  "RESULTS  OF  THIS  BATTLE:" 

983  PRINT 

985  FOR  1=1  TO  Nl 

987    IF  C(I)<>1  THEN  991 

989    IF  D(I)=1  THEN  1015 

991    IF  C(I)<>1  THEN  995 

993    IF  D(I)=2  THEN  1019 

995    IF  C(I)=1  THEN  1005 

997    IF  H(I)>=6  THEN  1011 

999    IF  H(I)>=3  THEN  1027 

1001    PRINT  K$;I;"NOT  ";G$ 

1003    GOTO  1029 

1005    PRINT  K$; I; "DESTROYED" 

1007    LET  D3=D3+1 
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1009  GOTO  1029 

1011  PRINT  K$; I; "HEAVILY" ;G$ 

1013  GOTO  1021 

1015  PRINT  K$; I; "FORCED  TO  RETIRE" 

1017  GOTO  1007 

1019  PRINT  "CONTACT  LOST  WITH  ";K$;I 

1021  IF  H(I)<6  THEN  1025 

1023  IF  F(I)>=3  THEN  1007 

1025  GOTO  1029 

1027  PRINT  K$; I; "LIGHTLY" ;G$ 

1029  NEXT  I 

1031  PRINT  "USS  ENTERPRIZE 

1033  IF  D2=l  THEN  1055 

1035  IF  Cl=2  THEN  1051 

1037  IF  HK5  THEN  1041 

1039  ON  INT(Hl-4)  GOTO  1047,1047,1051,1051,1051,1051,1051 

1041  IF  Cl=l  THEN  1047 

1043  PRINT  "NOT  ";G$ 

1045  GOTO  1057 

1047  PRINT  "LIGHTLY  ";G$ 

1049  GOTO  1057 

1051  PRINT  "HEAVILY  ";G$ 

1053  GOTO  1057 

1055  PRINT  "LOST" 

1057  IF  D3<Nl/2  THEN  1061 

1059  IF  D2=0  THEN  1071 

1061  IF  D3>=Nl/2  THEN  1075 

1063  IF  D2O0  THEN  1067 

1065  IF  D3>=1  THEN  1075 

1067  PRINT  "THIS  BATTLE  AWARDED  TO  THE  KLINGONS" 

1069  GOTO  1089 

1071  PRINT  "CONGRATULATIONS—YOU  HAVE  WON  A  MAJOR  VICTORY" 

1073  GOTO  1077 

1075  PRINT  "CONGRATULATIONS— YOU  HAVE  WON  A  TACTICAL  VICTORY" 

1077  PRINT 

1079  PRINT  "DO  YOU  WANT  ANOTHER  BATTLE"; 

1081  INPUT  Z$  "> 

1083  IF  Z$="NO"  THEN  1107 

1085  PRINT  "REPAIRS  COMPLETED" 

1087  GOTO  9 

1089  PRINT 

1091  PRINT  "DO  YOU  WANT  ANOTHER  BATTLE"; 

1093  INPUT  Z$ 

1095  IF  Z$="NO"  THEN  1107 

1097  PRINT  "HERE'S  ANOTHER  STARSHIP BE  MORE  CAREFUL  THIS  TIME" 

1099  GOTO  9 

1101  P3=1.5 

1103  GOTO  9 

1105  IF  D2=l  THEN  1109 

1107  PRINT  "REPORT  TO  STARBASE" ;INT(RND(0)*12+1) 

1109  END 
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COMPUTER  QUIZZES 

Computer  quiz  games  can  be  instructive  as 
well  as  fun,  if  clever  programming  techniques  are 
used.  Examples  of  these  techniques  include  the 
following: 

•  Having  a  large  data  base  of  questions  from  which 
a  few  are  randomly  selected  to  produce  a  new  set 
of  questions  for  each  quiz 

•  Automatically  recording  the  score  and  rewarding 
the  player  with  graphic  or  musical  interludes  for 
good  scores;  new  scores  may  be  compared  with 
old  scores  or  with  those  of  other  players 

•  Providing  explanations  of  missed  answers 

•  Allowing  for  the  selection  of  questions  according 
to  the  player's  level  of  ability  or  providing  for  an 
automatically-adjusting  level  of  difficulty  based 
upon  performance 

Assorted  suggestions  concerning  topics  for 
quiz  games  include  the  following: 

•  Names  and  capitols  of  states  or  countries,  possi- 
bly using  computer  graphics  to  draw  maps 

•  Vocabulary  words 

•  I.  Q.,  tests 

•  Personality  and  aptitude  tests 

•  Foreign  language  vocabulary  or  grammar 

•  Preschool  skills  including  comparing  and  count- 
ing random  shapes,  words,  and  numbers,  and 
copying  letters,  words,  and  numbers 


•  Practice  questions  for  examinations  such  as  the 
SAT,  GMAT,  MCAT,  LSAT,  and  ACT. 

•  Analogies 

•  Spelling  bees 

•  Verses  from  literature  or  the  Bible 

•  Trivia  questions  for  trivia  lovers,  on  science  fic- 
tion, movies,  and  history 

•  Basic  math  skills 

•  Chemical  equation  balancing 

•  English  grammar 

•  History  of  the  United  States,  the  Renaissance 
period,  or  World  War  I 

•  Constellations  or  planets 

GAMES  THAT  USE  WORDS 

You  can  program  a  wide  variety  of  games  and 
activities  based  on  words  including  the  following: 

•  Cryptograms,  or  coded  messages,  could  be  dis- 
played for  you  to  decode;  simple  clues  could  be 
provided. 

•  Anagrams,  or  jumbled  words,  are  a  popular  rec- 
reation. The  program  in  Listing  7-3  randomly 
chooses  one  of  many  words  stored  in  the  DATA 
statements  beginning  with  line  500.  The  program 
scrambles  the  letters  in  the  word  and  prints  it  on 
the  video  screen  for  you  to  unscramble  and  input. 

•  The  game  of  hangman,  in  which  one  has  ten 
guesses  to  determine  the  letters  in  a  randomly 


Listing  7-3:  the  Anagram  Creator  Program 


10 
20 
30 
40 
50 
60 
70 
80 
90 
10 
11 
12 
1.3 
14 
150 


REM  ANAGRAM  CREATOR 

REM  SCRAMBLES  WORDS  FOR  ENTERTAINMENT 

N=6  ■'NUMBER  OF  WORDS  IN  DATA  STATEMENTS 

DIM  M(N) ,  W*(N) ,  A (20) 

F0RI=1  TO  N 

M(I)=I 

NEXT  I 

FORI=l  TO  N-l 

R=(N+1-I)*RND(0) 


R=INT(R)+I 
T=M(R) 
M(R)=M<I> 
M ( I ) =T 
NEXT  I 
F0RI=1  TO  N 
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160  READ  W*(M(I) > 

170  NEXT  I 

180  FOR 1=1  TO  N 

185  A$="" 

190  A=LEN<W*(I> ) 

200  FOR  B=l  TOA 

210  A(B)=B 

220  NEXT  B 

230  F0RB=1  TO  N-l 

234  RANDOM 

235  S=<A+1-B)*RND<0> 
240  S=INT<S)+B 

250  C=A(S) :A<S)=A(B) :A(B)=C 

260  NEXT  B 

270  F0RB=1  TO  A 

280  A*=A*+MID*(W*(I) ,A(B) , 1) 

290  NEXT  B 

300  PR I NT A* 

310  INPUT  C* 

320  if  c*=w*(i>  then  print "r i6ht ! "  else  print  "wrong,  the  answer 
was:  ";w*(D 

330  NEXT  I 

340  END 

400  RUN 

500  REM  DATA  STATEMENTS  CONTAIN  WORDS  HERE. . . 

510  DATA  COMPUTER, TELEVI SI ON, 6AME, I NSTRUMENT, WRMTE, BASIC 


chosen  word,  serves  to  familiarize  the  player 
with  vocabulary  terms. 
1  Word  search  puzzles  ad  infinitum  may  be  com- 
puter generated,  either  from  a  word  list  or  as  a 
random  matrix  similar  to  the  popular  Boggle™ 
game.  A  program  to  determine  the  locations  of  all 
words  in  the  puzzle  could  also  be  implemented. 
You  could  also  have  the  computer  assist  in  crea- 
tion of  a  crossword  puzzle.  Choose  a  topic  and 
enter  words;  the  computer  will  automatically  fit 
the  common  letters  together  to  form  a  crossword 
grid.  Next,  enter  an  obscure  or  humorous  clue  for 
each  word.  The  completed  crossword  can  be 
saved  for  later  use  or  printed  and  sent  to  friends. 
Word  guessing  games,  similar  to  twenty  ques- 
tions, can  be  computerized.  In  these  games,  the 
player  asks  the  computer  questions  to  determine 
what  word  has  been  randomly  selected.  Replies 
for  the  many  possible  questions  a  human  could 
pose  must  be  stored;  thus  there  are  difficult 
programming  challenges.  The  dialogue  with  one 
such  program  went  like  this: 


(c=computer,  h=human) 

h:  Does  it  grow? 

c:  To  answer  that  question  might  be  mis- 
leading. 

h:  Can  I  eat  it? 

c:  Only  as  food  for  thought. 

h:  Do  computers  have  it? 

c:  Strictly  speaking,  no. 

c:  The  word  is  "Knowledge." 
1  A  word  game  similar  to  the  popular  Mastermind™ 
game  would  involve  the  computer's  selecting  a 
three-letter  word  from  a  large  list.  The  player 
would  guess  by  entering  a  three-letter  word  and 
would  be  told  whether  or  not  the  computer's 
word  contained  any  of  the  letters  in  the  word  the 
player  guessed  and  whether  or  not  those  letters 
were  in  the  correct  position.  The  object  is  to 
guess  the  computer's  word  in  the  least  number  of 
tries. 

In  the  game  of  Confound,  the  computer  outputs 
15  letters  (consonants  and  vowels).  The  players 
must  form  the  longest  word  possible  using  these 
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letters.  The  computer  serves  to  keep  score  and 
check  to  ensure  that  no  letters  were  used  im- 
properly, that  is,  used  more  often  than  they  ap- 
pear in  the  list. 

Story  Writer 

Using  the  combination  of  a  random  number 
generator,  a  list  of  words,  and  simple  rules  for 
English  grammar,  a  microcomputer  can  compose 
original  stories  ad  infinitum;  the  results  are  often 
amusing.  Here  are  some  story  writing  suggestions: 

•  Use  a  standard  story  line  in  which  blanks  are  left 
to  be  filled  in  with  inputted  words.  The  inputted 
words  could  consist  of  personalized  information, 
or  arbitrary  nouns,  adjectives,  and  adverbs,  as 
done  in  the  Mad  Libs™  party  games.  For  exam- 
ple, a  story  could  begin 

Space,  the  (adjective)  frontier. 

These  are  the  voyages  of  the  starship  {noun), 

It's  five-year  mission: 

To  seek  out  new  (noun)  and  new  (noun) .  .  . 

The  operator  is  requested  to  provide  one  adjec- 
tive and  three  nouns  to  fill  in  the  four  blanks 
above,  but  is  unaware  of  the  story  line  until  later 
when  these  words  are  incorporated  and  the  story 
is  printed  out.  Here  is  a  sample  result. 

Space,  the  nauseating  frontier. 

These  are  the  voyages  of  the  starship  lemon 

Its  five-year  mission: 

To  seek  out  new  games  and  new  computers. . . 

Also  included  in  this  category  are  "Me  Books" 
for  young  children.  The  computer  fills  the  blanks  in 
a  story  with  a  child's  name,  address,  and  other 
personalized  information.  The  resultant  per- 
sonalized story  often  increases  a  child's  interest  in 
reading. 

•  A  much  more  difficult  approach  to  story  writing 
involves  the  random  selection  of  words  or 
phrases  to  compose  a  series  of  sentences  that 
follow  standard  rules  of  grammar.  A  program 
written  in  1960  (before  high-level  languages 
were  in  widespread  use)  called  SAGA  was  de- 
signed to  produce  short  scripts  for  movie  west- 
erns. Here's  a  sample  of  the  output: 


Sheriff: 

The  Sheriff  is  at  the  window 

Sheriff  sees  robber 

Robber  sees  Sheriff 

go  to  door 

wait 

open  door 

Sheriff  sees  robber 

go  through  door 

robber  sees  Sheriff 

go  to  window 
Robber: 

take  gun  from  holster  with  right  hand 

aim 

fire 

Sheriff  nicked 
Sheriff: 

take  gun  from  holster  with  right  hand 

aim 

fire 

robber  hit 

blow  out  barrel 

put  gun  down  at  door 

go  to  table 

pick  up  glass  with  right  hand  .  .  . 

Writing  a  program  to  accomplish  the  above  is 
more  complex  than  it  would  seem  on  first  impres- 
sion; the  program  was  considered  quite  an 
achievement  in  1960.  Random  numbers  were  used 
to  determine  the  sequence  of  events;  the  events 
were  selected  from  a  wide  range  of  preprogrammed 
possibilities.  The  program  had  to  guard  against  a 
character  firing  a  gun  without  first  withdrawing  it 
from  his  holster  and  similar  situations.  Also,  a 
routine  was  necessary  to  compose  "sentences" 
using  the  rules  of  grammar  (for  example,  "gun  takes 
robber  from  holster  with  right  hand"  would  not  be 
allowed,  but  "robber  takes  gun  from  holster  with 
right  hand"  would  be  allowed).  The  use  of  prog- 
rammed phrases  instead  of  individual  words  to 
select  from  would  simplify  this  task  considerably. 
In  like  manner,  a  science  fiction  spoof  or  soap  opera 
dialogue  could  be  written.  A  professional  software 
house  sells  a  program  to  produce  random,  technical 
double-talk  to  "fill  out  business  reports  that  are  too 
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short."  A  sample  line  produced  by  the  program 
reads,  "The  product  configuration  requires  consid- 
erable analysis  and  trade-off  studies  to  arrive  at  the 
total  system  rational." 

MAGIC 

Magic  tricks  performed  by  your  computer 
would  make  an  interesting  demonstration  for  your 
guests.  Here  are  some  suggestions: 

Micro  mentalist.  The  computer  becomes  a 
mind  reader  in  this  trick.  The  performer,  who  is  the 
computer  operator,  is  given  an  item  from  the  audi- 
ence. The  performer  enters  a  question  such  as, 
"What  is  the  item  given  to  me  by  the  audience?" 
After  a  brief  delay,  the  computer  displays  the  name 
of  the  item. 

The  trick  is  based  on  a  code  programmed  into 
the  computer  that  allows  the  performer  to  indicate 
inconspicuously  to  the  computer  which  of  approxi- 
mately 20  items  he  has  been  given.  The  code  is 
contained  within  the  inputted  sentence;  different 
sentences  stand  for  different  objects.  For  example, 
"What  do  I  have  now?"  could  indicate  a  watch,  and 
"What  am  I  holding?"  could  indicate  a  match  folder. 
The  computer  merely  matches  the  inputted  ques- 
tion to  the  item  list  stored  in  its  memory. 

Age  determination.  The  performer  hands  a 
member  of  the  audience  a  pocket  calculator  and 
tells  him  to  enter  his  age  and  then  subtract  his 
favorite  one-digit  number.  Next,  the  guest  multi- 
plies this  result  by  nine  and  adds  his  age  to  the 
product.  The  final  result  is  called  out  and  is  inputted 
to  the  computer.  The  determination  of  the  guest's 
age  is  accomplished  by  adding  the  first  two  digits  in 
the  result  to  the  last  digit  (for  example,  if  the  result 
were  176,  adding  17  and  6  gives  you  23,  the  guest's 
age). 

The  break  in  the  chain.  This  trick  is  per- 
formed with  a  complete  set  of  dominoes  (usually  28 
pieces).  Beforehand,  the  performer  removes  one  of 
the  dominoes  (it  may  not  be  a  double)  and  inputs  the 
two  numbers  on  the  domino  to  be  stored  in  the 
computer.  The  guests  are  given  the  remaining  set 
and  are  asked  to  complete  a  single  domino  chain  as 
in  regular  play.  Once  completed,  the  numbers  on 
the  two  ends  of  the  chain  are  noted,  and  the  per- 


former inputs  a  question  such  as,  "What  are  the  two 
numbers?"  The  computer  replies  correctly  by  dis- 
playing the  two  previously  stored  numbers.  The 
trick  is  automatic  and  will  work  with  any  domino 
chosen,  excluding  doubles. 

COMPUTER-INTELLIGENCE  GAMES 

Programs  can  be  written  to  make  a  computer 
"learn"  from  its  mistakes,  entering  the  realm  of 
artificial  intelligence.  A  checker-playing  program 
that  stores  the  results  of  all  previous  moves  has 
been  written.  Although  the  time  necessary  to  de- 
cide on  a  move  increases  as  the  game  progresses, 
the  computer's  moves  are  much  better  than  they 
were  at  the  beginning  of  the  game.  Here  are  some 
games  that  the  computer  can  "learn"  to  play. 

•  Nim  as  described  earlier  in  this  chapter,  is  a 
popular  computer  game  in  which  a  player  may 
take  1,  2,  or  3  items  from  a  pile  of  20  in  an  attempt 
to  force  an  opponent  to  take  the  last  item.  Al- 
though this  game  is  completely  solvable,  a  Nim 
program  could  be  written  as  a  demonstration  of 
computer  "learning." 

•  A  BASIC  game  called  Animal,  in  which  the  com- 
puter plays  the  game  of  twenty  questions  with  a 
human,  has  been  written.  The  computer  asks 
such  questions  as  "Does  it  swim?"  to  try  to  de- 
termine what  animal  the  human  is  thinking  of.  If 
that  animal  is  not  in  the  computer's  file,  the 
human  is  requested  to  provide  information  so  that 
a  file  on  the  new  animal  can  be  created.  Thus,  the 
computer  "learns."  Of  course,  it  may  be  in- 
teresting to  use  a  subject  other  than  animals;  for 
example,  you  could  use  places  instead  of  animals 
to  help  young  people  learn  geography. 

•  A  crude  "mind  reading"  program  based  upon 
probability  could  be  created.  The  human  would 
be  instructed  to  choose  one  of  two  words.  Then 
the  computer  will  output  the  word  it  "believes" 
was  chosen.  After  a  number  of  trials,  the  com- 
puter should  be  able  to  formulate  a  strategy  for 
guessing  which  word  will  be  chosen  next,  be- 
cause humans  can  never  be  random  and  tend  to 
guess  in  patterns;  theoretically,  the  computer 
should  be  able  to  achieve  better  than  50%  correct 
responses. 
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Other  applications  of  personal  computers  in 
the  area  of  artificial  intelligence  include  programs 
that  can  tutor  humans  to  play  complex  games  such 
as  chess,  in  which  moves  can  be  analyzed  and 
changed,  and  suggestions  or  tips  given. 

PROGRAMS  FOR  YOUNG  CHILDREN 

Programs  that  make  liberal  use  of  graphics  and 
are  designed  to  be  foolproof  may  serve  as  educa- 
tional tools  for  young  children.  They  can  familiarize 
children  with  using  a  keyboard,  cursors,  and  com- 
puter graphics,  and  can  provide  learning  experi- 
ences. Suggestions  include  the  following: 

•  Matching  Games:  children  can  match  letters, 
words,  and  shapes. 

•  Drawing  Machine:  a  joystick  controller  or  arrow 
keys  permit  drawing  on  a  video  screen.  A  library 
of  shapes  including  squares,  triangles,  and  cir- 
cles can  also  be  used  to  construct  pictures. 

•  Face  Maker:  children  can  create  their  own  funny 
face  on  a  video  screen  by  selecting  eyes,  ears,  a 
nose,  hair,  and  a  mouth  from  a  collection  of  pos- 
sibilities. 

•  Storybook:  using  the  keyboard,  children  can 
write  their  own  stories,  which  the  computer  then 
interprets  and  animates  on  the  screen.  Stories 
can  involve  stored  images  such  as  houses,  trees, 
people,  and  cars,  which  may  then  be  animated  to 
illustrate  a  sentence  such  as  "The  girls  walked 
from  home  to  school." 

THE  COMPUTER  AS  BOARD  DISPLAY 
DEVICE,  BOOKKEEPER,  AND  GAME  ADVISOR 

Certain  games  are  designed  in  such  a  way  that 
the  computer  cannot  be  programmed  to  be  a  formid- 
able opponent.  You  can  use  the  computer  with  these 
games  in  other  ways,  including  the  following: 

•  Board  display  and  bookkeeping  for  complex 
board  games  such  as  Risk™,  Stratego™,  Go, 
Metagames,  and  Avalon-Hill  games  can  be  ac- 
complished with  high-resolution  graphics.  In  ad- 
dition to  displaying  the  board,  the  computer  could 
—generate  random  numbers  to  replace  spinners, 

dice,  cards 
—Record  each  move  for  later  review 


Compute  the  game  status  at  the  end  of  each 

turn 
—Compute  energy,  arsenal,  moves,  positions, 

money  and  statistics  for  each  player. 
•  Advising  and  bookkeeping  for  such  games  as 
checkers  and  chess  can  be  accomplished.  The 
computer  could  store  each  move,  advise  against 
potential  checks,  skewers,  and  forks,  alert  the 
players  to  discoveries,  and  print  a  listing  of  the 
game,  move  by  move,  at  the  finish.  Advising  for 
gambling  games  such  as  blackjack  could  take  the 
form  of  the  creation  of  an  odds  table  for  the  high 
cards  remaining  in  the  deck,  the  computation  of 
whether  to  stay  or  hit,  and  the  calculation  of  the 
safest  amount  to  bet. 

DRAWING  AND  KALEIDOSCOPE  PROGRAMS 

Most  picture  drawing  programs  utilize  the 
arrow  (cursor  positioning)  keys  on  the  video  termi- 
nal keyboard  to  direct  a  cursor  point  that  leaves  a 
line.  Several  additions  could  be  made  to  these  pro- 
grams, including  animation  routines,  special  stan- 
dard designs  that  may  be  called  to  the  screen,  pro- 
visions for  storing  a  design  on  cassette  or  floppy 
disk,  and  for  using  light  pens  and  joysticks.  The 
kaleidoscope  effect  refers  to  a  computer  algorithm 
used  to  alter  a  design  in  kaleidoscope  fashion  (that 
is,  the  design  is  multiply  reflected  as  its  mirror 
image)  in  real  time.  Fascinating  "modern  art"  de- 
signs can  be  made  with  programs  that  use  random 
numbers  with  the  DRAW,  LINE,  CIRCLE,  FULL, 
and  PAINT  commands  found  in  some  BASIC  inter- 
preters. Random  lines  and  circles  of  various  sizes 
fill  the  screen,  and  each  area  defined  by  lines  is 
filled  in  with  various  colors. 

SIMULATION  AND  ADVENTURE  GAMES 

Simulations  of  real-world  situations  need  not 
be  outputted  as  complex  numerical  listings;  they 
may  be  transformed  into  games  suited  for  people 
young  and  old.  Some  of  the  many  possibilities  in- 
clude the  following: 

Pool  Table.  A  pool  playing  game  displayed 
using  video  graphics  could  serve  to  teach  the  prin- 
ciples of  elastic  collisions  and  angular  geometry. 

Motorcycle  Jump.  A  simulation  in  which  a 
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motorcycle  must  leap  a  certain  distance  to  land 
safely  could  illustrate  projectile  motion.  The  ramp 
angle  and  initial  motorcycle  velocity  would  be  de- 
termined by  the  person  playing  the  game. 

Projectile  motion  formulae  are  provided  below 
for  those  with  faint  recollections  of  high  school 
physics: 

1.  Position  relative  to  point  of  projection  after  time 

t 


V  e  a  initial  velocity 


X '  =  V  t  COS    6 


gt2 


y  =  v0t  sin  6  -  -&j- 

2.  Range,  maximum  height  and  time  of  flight 

2vo 
T  =   —S-  sin  d 

g 

2v2„ 
R  =   — 2.  sin  e  cos  e 
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2g 


sin20 


3.  Necessary  angle  of  projection  for  given  range 
with  given  speed  of  projection 

sin  2a  —    z^.    giving  two  possible  angles , 
ax    and    ar 

Navigation.  A  simulation  in  which  the  par- 
ticipant must  find  his  way  to  an  island,  using  a  radio 
direction  finder  in  his  sailboat,  could  teach  princi- 
ples of  geometry  as  well  as  sailboat  handling  for 
example. 

Detective.  The  participant  would  assume  the 
role  of  a  detective  in  this  simulation.  A  valuable 


gem  has  been  stolen  from  a  museum  and  five  per- 
sons are  suspected.  The  use  of  deductive  reasoning 
is  the  only  way  the  detective  can  solve  this  crime. 

MX  Missile.  In  this  grid  search  game,  one 
player  hides  MX  missiles  among  several  possible 
silos  and  may  shuffle  missiles  while  the  other 
player  shoots  at  them  trying  to  hit  silos  containing 
missiles. 

World  Race.  Using  a  combination  of  race  and 
rally  tactics,  players  compete  to  be  the  first  to 
motor  from  England  to  New  York  and  back  to  New 
York,  navigating  their  way  through  Europe,  Asia, 
the  Far  East,  and  South  America.  Strategy  plays  a 
large  part  as  players  have  to  motor  through  towns  in 
every  country  in  order  to  pick  up  points.  Out  of  the 
way  towns  score  higher  than  those  along  main 
routes.  The  winner  is  the  player  who  reaches  New 
York  in  the  least  time  and  with  the  most  points. 
Rabies  in  Europe,  tropical  rains  in  South  America, 
drought  in  Africa,  and  so  on  deter  everyone's  prog- 
ress. The  game  serves  to  teach  geography. 

Wall  Street.  A  stock  market  simulation, 
preferably  multiplayer,  would  allow  players  to  buy 
and  sell  stocks  according  to  market  conditions.  A 
computer  determines  the  outcome  of  each  round 
and  the  price  for  each  stock  and  serves  as  book- 
keeper. 

World  Conflict.  This  multiplayer  simulation 
would  place  each  player  as  the  head  of  a  nation. 
Players  must  decide  whether  they  should  go  to  war, 
form  cartels,  or  make  concessions  and  com- 
promises. The  computer  could  select  the  conflict- 
ing situations  (for  example,  oil  embargoes,  assassi- 
nations, nuclear  threats,  Communist  expansion). 

Decision.  A  simulation  of  corporate  manage- 
ment and  big  business  could  place  each  player  as  a 
top  level  executive.  Each  executive  has  the  author- 
ity to  produce  the  product  of  his  choice  and  sell  the 
product  at  the  best  market  price.  Throughout  the 
game,  prices  fluctuate  according  to  the  law  of  sup- 
ply and  demand. 

Fire.  The  object  of  this  simulation  is  to  subdue 
a  raging  forest  fire  with  chemicals,  backfires,  and 
other  fire-fighting  methods.  The  success  of  the 
player  depends  upon  quick  decisions  concerning 
how  to  control  a  geometrically  increasing  fire. 
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Atomic  Fission.  This  simulation  dem- 
onstrates geometric  progressions  by  simulating  a 
nuclear  reaction  in  which  each  split  atom  releases 
enough  energy  to  split  two  or  more  other  atoms, 
and  so  on. 

Auction.  Principles  of  bidding  at  an  auction 
could  be  simulated  in  a  one  or  more  player  game 
involving  the  auction  of  art.  Players  must  be  careful 
of  forgeries. 

Adventure.  The  object  of  this  simulation  is 
survival  in  a  desperate  attempt  to  locate  buried 
treasure  on  an  island.  How  does  one  obtain  fresh 
water  on  an  island  surrounded  by  salt  water? 

Ethics.  This  simulation,  involving  the  conflict 
between  morals  and  greed,  uses  the  computer  as 
the  judge  of  ethics.  Conflicting  situations  in  which 
players  must  decide  the  outcome  are  provided.  If  a 
preprogrammed  decision  does  not  match  with  a 
player's,  that  player  accumulates  "morality  deduc- 
tions." The  winner  is  the  player  with  the  most 
money  and  fewest  deductions. 

Careers.  This  simulation  game  places  the 
player  in  new  occupations  to  enable  him  or  her  to 
experience  decision  making,  conflicts,  oppor- 
tunities, and  financial  stress  from  different  view- 
points in  a  variety  of  careers. 

Artillery.  This  is  a  simulation  in  which  a  gun 
in  a  fixed  emplacement  must  fire  a  projectile  at  such 
a  velocity  and  angle  that  it  will  hit  a  target.  The 
distance  the  projectile  lands  from  the  target  could 
be  displayed  as  the  integer  of  the  log  to  the  base  2  of 
the  absolute  value  of  the  distance;  several  other 
possibilities  exist  for  teaching  mathematical  princi- 
ples. 

Grid  Search  Simulations.  A  search  game, 
for  example,  one  that  pitted  a  destroyer  against  a 
submarine,  could  be  programmed.  The  game  would 
use  a  10  x  10  grid  that  must  be  selectively  searched 
by  the  ship  or  the  submarine  in  its  efforts  to  find  and 
attack  the  other  vessel.  Similarly,  a  game  played  on 
the  same  grid  could  involve  a  spy  searching  for 
hidden  documents  with  hidden  enemy  agents  to 
watch  for  as  well. 

Rat  Race.  A  video  graphics  program  that 
draws  a  maze  and  animates  a  mouse  could  be 
created.  The  programming  involved  in  enabling  the 


mouse  to  "learn"  to  solve  the  maze  could  dem- 
onstrate rudimentary  artificial  intelligence  princi- 
ples. 

Computer.  Based  on  a  large  scale  computing 
system,  the  object  of  this  simulation  is  to  process 
two  complete  programs  before  your  opponents  can. 
Players  who  make  the  best  decisions  can  avoid  the 
jeopardies  of  power  failures,  restricted  use  of  I/O 
channels,  bugs  and  priority  interrupts. 

Laser  Tank.  The  player  and  the  opponent 
(the  computer)  each  have  a  laser-firing  tank  and  a 
base.  The  object  is  to  be  the  first  to  destroy  the 
opponent's  base  while  avoiding  his  fire.  Obstacles 
litter  the  battlefield,  and  laser  fire  is  destructive 
only  at  a  limited  range. 

Robotwar.  The  purpose  of  this  simulation  is 
to  teach  computer  programming.  Two  opposing 
players  are  instructed  to  secretly  design  programs, 
written  in  a  custom  language,  that  would  create  and 
control  robots  designed  to  annihilate  any  other 
robots.  The  programs  would  be  entered,  and  a 
video  display  of  the  combat  field  would  be  updated 
in  real-time.  The  objective  could  be  to  hit  the  op- 
posing robot  five  times  to  win. 

Robot  War  II.  The  program  in  Listing  7-4, 
Robotwar  II  is  a  challenging  game  to  play  against 
your  computer.  In  the  game,  you  are  represented 
by  an  * ,  while  the  computer  controls  annihilating 
robots  represented  by  +.  An  electrified,  lethal 
fence  defines  the  playing  field. 

The  computer's  robots  will  destroy  you  if  they 
come  close.  However,  the  robots  will  destroy 
themselves  if  they  run  into  the  fence.  Your  objec- 
tive is  to  evade  the  robots  until  all  have  been  de- 
stroyed by  the  fence.  To  move  in  a  desired  direc- 
tion, use  the  chart  in  Fig.  7-16,  which  indicates  the 
number  to  input. 


Fig.  7-16.  The  numbers  corresponding  to  the  directions  in  the 
Robot  II  game. 
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Listing  7-4:  The  Robotwar  II  Program 


160  REM  ROBOTWAR  II 

170  PRINT 

199  REM  SET  UP  THE  SAME 

200  DIMA<10,20> ,E<21) ,F(21> 

210  G=0:Z7=1 

220  F0RB=1T010 

230  F0RC=1T020 

240  A(B,C)=0 

250  IFBO1THEN260 

251  A(B,C)=1 

260  I FB<  > 1 0THEN270 

261  A<B,C)=1 

270  IFCO1THEN280 

271  A<B,C)=1 

2B0  IFCO20THEN290 

281  A(B,C>=1 

290  NEXTC 

300  NEXTB 

310  F0RD=1T021 

320  B= I NT  < RND ( 0 ) *B ) +2 

330  C=INT(RND(0)*18)+2 

340  I FA  <  B , C  ><  >0THEN320 

350  A(B,C)=1 

360  IFD>=6THEN370 

361  A(B,C)=2 

370  IFDO6THEN380 

371  A(B,C)=3 

380  E(D)=B 

390  F(D)=C 

400  NEXTD 

500  F0RB=1T010 

510  F0RC=1T020 

520  I FA ( B , C ) <  >0THEN530 

521  PRINT"  "5 

530  IFA(B,C)OlTHEN540 

531  PRINT"X"5 

540  IFA(B,C)O2THEN550 

541  PRINTn+"; 

550  I FA  <  B , C )< >3THEN560 

551  PRINT"*"? 

560  NEXTC 

570  PRINT 

580  NEXTB 

600  B=E(6) 

610  C=F(6) 

620  A(B,C)=0 

630  INPUTY 

640  IFY=0THEN800 

650  0NY60T0660 , 660 , 660 , 690 , 680 , 

680 

,680,690,1400 
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660  B=B-1 

670  G0T0690 

680  B=B+1 

690  0NYG0T0700 , 800 , 720 , 720 , 720 , 800 , 700 , 700 

700  C=C-1 

710  G0T0800 

720  C=C+1 

800  IFA(B,C)=1THEN1500 

810  IFA(B!,C)=2THEN1600 

820  A(B,C)=3 

830  E(6)=B 

840  F(6)=C 

850  F0RD=1T05 

860  I FA ( E ( D ) , F  <  D ) ) < >2THEN960 

870  A<E(D) ,F(D) ) =0 

880  IFE(D) >=BTHEN890 

881  E(D)=E(D)+1 

890  I FE ( D )< =BTHEN900 

891  E(D)=E(D)-1 

900  IFF(D) >=CTHEN910 

901  F(D)=F(D)+1 

910  I FF ( D )<  =CTHEN920 

911  F(D)=F(D)-1 

920  IFA(E(D> ,F(D) )=3THEN1600 

930  IFA(E(D) ,F(D) ) =0THEN940 

931  G=G+1 

940  I FA  < E ( D ) , F ( D ) X >0THEN950 

941  A(E(D) ,F(D) ) =2 
950  IFG=5THEN1700 
960  NEXTD 

970  PR I NT "MAP"; 

980  INPUTY* 

990  IFY*="Y"THEN500 

995  G0T0600 

1025  Z7=Z7+1 

1400  PR I NT "SORRY  TO  SEE  YOU  QUIT" 

1401  Z9=29+l 
1410  G0T01710 

1500  PR I NT "YOU  TOUCHED  THE  FENCE" 

1501  Z9=Z9+1 

1600  PR I NT "YOU  HAVE  BEEN  DESTROYED  BY  A  LUCKY  COMPUTER" 

1601  Z9=Z9+1 
1610  G0T01710 

1700  PR I NT "YOU  .DESTROYED  THE  ENERMY i ! ! " 

1701  Z8=Z8+1 

1710  PR I NT "DO  YOU  WANT  TO  PLAY  AGAIN  (TYPE  Y  OR  N)"5 
1720  INPUTY* 

1730  IF  Y*="Y"THEN210 

1731  PR  I  NT  "COMPUTER  WON:  "5Z9S"    HUMAN  W0N:"j!Z8 

1732  PR  I  NT  "COMPUTER'S  AVERAGE:  "  5 19/17;  "  HUMAN'S  AVERAGE:  ".!  Z8/Z7 

1733  PRINT 
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1740  PR I NT "HOPE  YOU  DON'T  FEEL  FENCED  IN' 
1750  PR I NT "TRY  AGAIN  SOMETIME" 
1760  END 


VIDEO  GAMES 

A  personal  computer  with  a  memory-mapped 
video  display  and  high-resolution  graphics  could 
emulate  the  popular  video  games.  Although  pro- 
grams written  in  BASIC  do  not  execute  as  fast  as 
the  real  video  games  do,  programs  written  in  as- 
sembly language  do  run  as  fast.  Here  are  some 
ideas  you  might  want  to  try: 

Maxwell's  Demon.  Semifloating  molecules 
are  trapped  in  one  chamber  of  a  two-chamber  box.  A 
gate  connects  the  two  compartments.  The  mo- 
lecules are  constantly  bombarding  each  other  and 
bouncing  off  walls;  the  object  is  to  open  and  close 
the  gate  at  the  right  times  so  that  all  molecules  will 
be  trapped  in  the  other  compartment. 

Hockey  and  Tennis  type  games.  These 
computer  games  could  be  controlled  with  joysticks, 
simple  potentiometers,  or  keyboard  switches  just 
as  their  video  game  counterparts  are. 

Tanks.  In  a  projectile-shooting  battle  be- 
tween two  tanks,  the  computer  could  act  as  the 
opponent.  Similarity,  a  battle  could  be  designed  for 
jet  fighters,  biplanes,  or  ships  instead  of  tanks. 

Pinball.  A  moving  set  of  paddles  could  replay 
a  "ball"  to  hit  targets  and  score  points. 

Lunar  Lander.  This  game  involves  a  lunar- 
landing  module  that  is  governed  by  rocket  propul- 
sion, fuel  supply,  and  gravity.  It  must  land  at  a  low 
velocity  so  that  no  damage  is  done  and  must  land  on 
a  plateau,  avoiding  lunar  mountains  and  craters. 
The  lunar  lander  program  could  be  made  more  com- 
plex by  requiring  that  you  take-off  from  the  lunar 
surface,  navigate  over  an  obstacle  of  random  size, 
and  land  again  accurately. 

Football,  Baseball,  and  Basketball.  An 
animated  display  of  players,  ball  positions,  and  the 
playing  field  could  be  used  to  display  the  action  in 
these  sports. 

Racetrack.  The  object  of  this  game  is  to  finish 
the  race  in  the  least  time.  Hazards  include  attaining 
too  much  speed  to  slow  down  before  a  curve,  oil 


slicks,  and  other  cars.  Hazards  cause  you  to  lose 
time. 

Skydiver.  The  player  in  this  game  must  con- 
trol chute  opening  and  jump  time  for  a  parachutist 
who  must  land  at  a  precise  point.  A  wind  of  ran- 
domly selected  direction  and  velocity  presents  a 
challenge  to  overcome. 

Robot  Bowl.  The  player  controls  a  bowling 
robot  in  an  attempt  to  knock  down  as  many  pins  as 
possible.  The  time  of  release,  angle  of  approach, 
and  weight  of  the  ball  are  selected  by  the  player. 

Shooting  Gallery.  Several  moving  targets  of 
different  point  values  and  a  directional  "gun"  could 
comprise  a  video  version  of  the  popular  shooting 
gallery. 

Golf.  A  golf  game  with  a  set  of  graphical  holes 
(or  design-your-own-hole  provisions)  would  let  the 
players  choose  the  clubs  they  will  use  for  each  shot 
and  the  angle  at  which  the  ball  will  be  hit.  Hazards 
include  sand  traps,  water,  "dog-legs,"  and  strong 
winds. 

RECREATIONS  INVOLVING  THE  COMPUTER  ITSELF 

A  hobby  computer  magazine  once  listed  some 
suggestions  on  "busting  your  computer"  to  deter- 
mine the  limitations  of  your  BASIC  (or  other  high- 
level  language).  The  results  may  suprise  you.  Here 
are  a  few  ideas: 

•  Determine  the  maximum  number  of  parentheses 
that  can  be  used  in  one  statement.  (Don't  be 
surprised  if  over  100  are  allowed!) 

•  Determine  the  maximum  dimension  allowed  for 
an  array. 

•  Determine  the  maximum  number  of  nested 
FOR-NEXT  loops  allowed. 

Other  challenges  include  writing  a  "self- 
duplicating"  program  that  is  not  simply  composed  of 
verbatim  PRINT  statements,  yet  prints  a  duplicate 
of  itself.  If  you  are  ambitious,  you  might  attempt  to 
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break  the  record  for  carrying  out  Pi  to  the  most 
decimal  places  (500,000). 

COMPUTERS  AND  CHESS 

Chess  is  one  of  the  most  popular  computer 
recreations  for  several  reasons.  First,  it  requires 
an  advanced  level  of  computer  programming,  de- 
scribed by  some  as  "artificial  intelligence,"  that 
enables  a  computer  to  emulate  human  thought. 
Second,  it  may  be  difficult  to  find  chess  opponents 
at  your  level  of  ability.  The  computer,  as  your 
opponent,  solves  that  problem  by  having  adjustable 
skill  levels,  making  it  possible  to  find  an  opponent 
of  your  own  strength.  Third,  many  chess  programs 
can  serve  as  chess  tutors  by  suggesting  moves, 
demonstrating  piece  movements,  allowing  the 
rearrangement  of  boards,  and  even  stepping  you 
through  a  collection  of  games  from  masters-level 
tournaments.  Many  of  today's  chess  programs  are 
rated  in  the  middle  1200  s  or  above  and  can  serve  as 
a  formidable  opponent  for  novice  to  intermediate 
level  players. 

Chess  playing  programs  are  almost  always 
written  in  assembly  language  for  the  purpose  of 
speed;  they  may  analyze  from  a  few  thousand  to 
over  one  million  possibilities  before  making  a 
move.  A  large  scale  computer  chess  program  is 
described  below  for  those  interested  in  the  inner 
workings  of  the  game.  The  discussion  can,  perhaps, 
provide  added  insights  for  your  game  and  can  assist 
those  who  are  interested  in  writing  their  own  chess 
programs.  A  warning,  however:  most  credible 
chess  programs  have  required  thousands  of  man- 
hours  in  development  time  and  are  truly  a  pro- 
grammer's ultimate  challenge. 

The  program  described  here  is  named  OS- 
TRICH; it  competed  in  the  First  World  Computer 
Chess  Tournament.  The  OSTRICH  program  is 
composed  of  three  modules:  BOOK,  which  pro- 
vides standard  book  opening  moves  for  up  to  the 
first  five  moves,  CHESS,  which  is  the  main  pro- 
gram used  during  most  of  the  game,  and  END 
GAME,  which  takes  over  in  rook/king  or  queen  and 
king/king  end  games.  CHESS,  the  main  module,  is 
comprised  of  approximately  9000  instructions, 
which  are  divided  into  five  subprograms: 


1.  A  subroutine  for  the  control  of  input  and  output 
and  for  the  control  of  the  size  of  the  search  tree. 
The  search  tree  refers  to  the  branching  search  for 
all  move  possibilities  that  the  computer  per- 
forms before  making  each  move.  The  size  of  the 
tree  indicates  the  depth  or  number  of  moves 
ahead  that  will  be  considered  for  each  move. 

2.  A  subprogram  to  generate  all  move  possibilities 
or  search  the  tree. 

3.  A  subprogram  to  arrange  each  possible  move  on 
a  hierarchy  scale  according  to  its  plausibility 
(each  move  is  given  a  plausibility  score).  Fol- 
lowing this  initial  ordering,  another  set  of 
routines  is  called  upon  to  improve  the  ordering. 

4.  A  subprogram  to  calculate  a  terminal  score  or  to 
evaluate  the  chess  board  at  each  terminal  or 
branching  point  in  the  tree. 

5.  A  subroutine  to  update  all  arrays,  lists,  and 
pointers  used  by  the  remainder  of  the  program. 

The  Reference  Arrays  Used  by  Chess 

1.  The  lists  of  the  locations  of  each  chess  piece: 
an  8  x  8  array  holds  an  identification  number 
for  each  of  the  pieces  on  the  board,  in  a  corre- 
sponding memory  location.  The  white  pieces 
are  identified  as  follows:  King  =  6,  Queen  =  5, 
Rook  -4,  Bishop  =  3,  Knight  =  2,  and  Pawn  =  1. 
The  black  pieces  are  identified  as  the  negative 
of  the  corresponding  white  piece  number.  The 
boards  position  array  is  updated  after  each 
move. 

2.  The  piece  location  arrays:  two  separate  arrays 
are  generated  at  the  beginning  of  each  tree 
search.  The  list  contains  the  names  and  cor- 
responding locations  of  the  white  pieces;  the 
other  does  the  same  for  the  black  pieces. 

3.  The  possible  moves  list:  a  list  of  possible 
moves  for  ply  1  (ply  refers  to  the  depth 
searched),  ply  2,  and  ply  3,  corresponding  to 
each  initial  move,  is  generated.  Additionally, 
memory  is  reserved  to  indicate  which  moves 
will  result  in  a  capture. 

4.  The  control  piece  array:  this  array  stores  the 
squares  that  each  piece  "controls"  as  well  as 
the  pieces  that  control  a  particular  square. 
Thus,  it  is  possible  to  determine  the  power  of 
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each  piece  along  with  what  pieces  are  in  control 
of  the  specific  square  in  question. 

5.  The  change  array:  all  changes  made  at  a  node  in 
the  search  tree  are  stored  in  this  array  when 
control  advances  to  a  new  node.  The  purpose  of 
the  list  is  to  expedite  the  restoring  of  positions. 

6.  The  pinned  pieces  list:  a  listing  of  all  pinned 
pieces  is  maintained  in  this  array, 

7.  The  en  prise  pieces  list:  a  separate  list  of  en 
prise  pieces  at  each  search  node  is  maintained. 

8.  The  Alpha  and  Beta  cut-offs  lists:  two  lists,  one 
of  the  last  eight  moves  resulting  in  alpha  refu- 
tations and  the  other  of  beta  refutations,  are 
maintained. 

9.  The  ply  3  plausibility  list:  CHESS  maintains  a 
list  of  the  best  ply  3  move  for  each  possible  ply 
2  opponent's  move  for  each  ply  1  move  investi- 
gated. 

10.  The  principal  variations  list:  each  principal 
variation  originating  in  the  tree  search  is 
stored  in  this  list. 

11.  The  position  records  list:  this  listing  of  all 
moves  since  a  recent  capture  or  pawn  move  is 
used  to  determine  whether  a  draw  should  be 
made  because  of  repetition. 


Tree  Size 

Tree  size  is  automatically  controlled  by  the 
program  so  that  decisions  will  not  exceed  a  pre- 
determined time  limit.  Conditions  that  warrant  an 
extension  of  the  tree  size  include  potential  checks, 
captures.  Pawn  promotions,  Pawns  on  the  seventh 
rank,  and  the  presence  of  en  prise  pieces. 

The  flowchart  in  Fig.  7-17  illustrates  the  pro- 
cessing that  occurs  each  time  a  new  node  is 
reached.  The  node  is  determined  to  be  either  "ter- 
minal" or  "nonterminal."  A  terminal  node  can  be 
declared  by  a  subroutine  known  as  the  gamma  al- 
gorithm, by  the  fact  that  the  node  is  past  the  tree 
length  or  by  the  fact  that  the  node  is  past  the 
minimum  ply,  but  the  board  has  no  special  features. 
All  other  nodes  are  classified  as  nonterminal. 

Nonterminal  Node  Processing 

The  One  Move  Generator  subroutine  is  the 


first  processing  done  at  a  nonterminal  node.  This 
subroutine  determines  whether  one  move  is  suffi- 
cient or  all  legal  moves  must  be  generated;  if  the 
first  move  could  cause  a  refutation,  the  program 
continues;  otherwise,  the  Move  Generator  deter- 
mines all  legal  moves.  Following  move  generation, 
a  plausibility  score  is  assigned  to  each  move,  and 
moves  are  sorted  according  to  decreasing  plausi- 
bility. The  list  is  then  resorted  by  special  routines. 

Plausibility  Scoring 

All  possible  moves  are  assigned  a  plausibility 
score  that  is  based  on  the  following  parameters: 

1.  Captures:  the  score  given  for  each  capture  is 
2400  points  plus  the  results  of  this  formula: 

additional    points  =(point    value    of 
captures- piece  point  value  of  capturing 
piece)/10 
where  the  points  for  the  chess  pieces  are  Pawn 
=  600,  Knight  =  Bishop  =  1800,  Rook  =  3000, 
Queen  =  5400,  King  =  300,000. 

2.  Castling:  the  point  value  for  castling  is  10,000 
points. 

3.  Randomizer:  this  routine  adds  a  random 
number  of  points  to  each  move  such  that  no 
piece  will  have  excessive  moves  on  the  moves 
list.  Up  to  ten  points  may  be  added. 

4.  Advance:  any  move  which  retreats  a  Queen, 
Knight,  or  Bishop  receives  a  penalty  of  twenty 
points. 

5.  Pawn  attack:  any  move  which  places  a  Queen, 
Rook,  Bishop,  or  Knight  where  it  can  be  cap- 
tured on  the  next  move  by  a  Pawn  receives  a 
penalty  of  200  point. 

6.  Pawn  scoring:  a  Pawn  move  past  the  fourth 
rank  is  awarded  300  additional  points,  and  a 
move  past  the  sixth  rank  is  given  1000  addi- 
tional points.  A  move  of  the  King's  or  Queen's 
Pawn  is  awarded  21  additional  points,  and  a 
move  of  the  Bishop's  Pawn  is  given  15  addi- 
tional points. 

7.  Rook  scoring:  moves  for  Rooks  past  the  sixth 
rank  are  given  200  additional  points.  Moves  for 
Rooks  on  the  first  rank  to  another  square  on  the 
first  rank  that  has  no  Pawns  on  the  second  and 
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Fig.  7-1 7.  A  flowchart  for  node  processing. 
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third  ranks  is  awarded  40  points. 

8.  Refutation  moves:  any  move  on  either  the 
alpha  or  beta  refutation  lists  is  given  an  addi- 
tional 300  points. 

9.  En  prise  moves:  any  move  that  defends  an  en 
prise  piece  is  given  a  bonus  of  300  points. 
Moves  of  en  prise  pieces  are  awarded  300 
points  if  the  move  is  to  a  safe  square  and  are 
penalized  20  points  if  the  move  is  an  unsafe 
square. 

10.  Attack  moves:  if  a  move  will  place  a  piece 
where  it  can  attack  more  pieces  than  before  the 
move,  additional  points  are  awarded  according 
to  the  pieces  which  may  be  attacked  (and  other 
factors). 

Reordering  the  Moves  List 

Following  the  plausibility  score  analysis,  spe- 
cial reordering  routines  are  used  to  generate  a  final 
listing  of  moves  in  the  order  of  their  advantages. 
The  three  reordering  routines  used  by  OSTRICH 
are  as  follows: 

1.  Capture  reordering:  the  plausibility  analysis 
arbitrarily  places  capturing  moves  at  the  top  of 
the  moves  list;  however,  a  capture  is  usually 
not  the  best  move  in  most  positions.  This 
routine  generally  places  captures  by  non- 
Pawns  on  the  opponent's  side  behind  the  non- 
capturing  moves  next  on  the  list.  No  capture  is 
moved  to  a  point  on  the  list  where  it  will  not  be 
considered  in  the  final  analysis,  however. 
Captures  of  pieces  moved  at  the  last  ply  are 
placed  at  the  top  of  other  captures,  except  at 
ply  one,  where  this  is  done  only  under  the 
condition  that  the  following  move  will  be  a 
recapture. 

2.  Special  reordering:  a  move  called  "Second 
Best"  is  generated  after  each  move;  it  is  the 
second  to  the  last  move  that  the  search 
evaluated  as  it  searched  the  first  ply  move  list. 
This  move  is  matched  with  the  same  move  on 
the  moves  list,  if  it  is  there.  Any  such  move  is 
placed  on  the  top  of  the  moves  list,  if  it  is  legal. 

3.  Midsearch  reordering:  a  midsearch  reorder  is 
done  to  the  ply  one  moves  list  when  the  third 


move  at  ply  one  is  to  be  considered.  A  match  is 
sought  between  the  moves  remaining  on  the 
ply  one  list,  and  the  move  at  the  third  ply  is 
retrieved  from  the  present  principal  continua- 
tion. If  a  match  is  found,  that  move  is  placed  at 
the  top  of  the  moves  list;  if  no  match  is  found, 
matches  are  sought  between  this  move  and  the 
most  recent  refutations. 

Processing  at  Terminal  Nodes 

A  scoring  routine  is  applied  to  each  terminal 
node,  once  it  has  been  determined  to  be  a  terminal 
node.  The  seventeen  scoring  functions  are  as  fol- 
lows: 

1.  Board  material:  credit  is  awarded  for  the 
number  and  types  of  pieces  that  will  remain  on 
the  board.  The  values  given  to  each  piece  are 
Pawn=l,  Bishop=Knight=3,  Rook=5, 
Queen=9  King=300. 

2.  Material  ratio:  the  material  ratio  routine 
scores  favorably  for  trading  pieces  when  you 
are  ahead  in  material  and  penalizes  for  trading 
when  you  are  behind:  100  points  are  awarded 
to  the  side  that  is  ahead. 

3.  Castling:  a  King  side  castling  is  given  600 
points,  while  a  Queen  side  castling  is  given  300 
points. 

4.  Board  control:  points  are  awarded  in  the  fol- 
lowing manner  for  control  (ability  to  capture)  of 
certain  squares  on  the  board:  12  points  for  each 
of  the  four  center  squares,  7  points  for  control 
of  any  square  in  the  ring  surrounding  the  four 
center  squares,  and  12  points  for  squares  sur- 
rounding the  opponent's  King. 

5.  Tempo:  200  points  are  deducted  from  the  score 
of  either  side  for  wasting  time  in  one  of  the 
following  ways:  moving  one  piece  twice  in  the 
opening,  moving  King  or  Rook  prior  to  cast- 
ling, moving  a  piece  to  its  last  previous  posi- 
tion, using  more  than  one  move  to  move  a  piece 
to  a  position  it  could  have  reached  in  one  move. 

6.  Opening  Queen  moves:  moves  of  the  Queen 
before  the  eighth  move  are  penalized  400 
points. 
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7.  Blocking  unadvanced  Pawns:  470  points  are 
deducted  for  moves  that  block  unadvanced 
King  or  Queen  Pawns. 

8.  Minor  piece  development:  a  penalty  of  140 
points  is  given  for  each  unmoved  center  Pawn, 
Bishop,  or  Knight. 

9.  Center  Pawns:  an  additional  50  points  are 
awarded  for  all  Pawns  on  K4  or  Q4;  70  points 
are  awarded  for  a  Pawn  on  K5  or  Q5. 

10.  Pawn  structure:  Isolated  pawns  are  penalized 
400  points;  doubled  Pawns  are  penalized  20 
points;  advancing  Pawns  are  awarded  10 
points. 

11.  Passed  Pawns:  passed  Pawns  on  the  seventh 
rank  are  worth  700  point,  on  the  sixth  400 
points,  on  the  fifth  340  points,  on  the  fourth  40 
points,  on  the  third  100  points,  on  the  second 
40  points.  If  Pawns  and  Kings  are  the  only 
pieces  left,  the  point  values  are  doubled. 

12.  Kind  defense:  if  there  are  more  non-Pawn  op- 
posing pieces  in  the  King's  sector  than  de- 
fending pieces,  a  penalty  of  75  points  is  as- 
sessed. 

13.  Doubled  Rooks,  Bishop  pairs:  if  the  two  rooks 
are  on  the  same  column,  150  points  are 
awarded;  if  one  side  has  two  Bishops  and  the 
other  side  does  not,  150  points  are  awarded. 

14.  Trades:  if  the  piece  that  moved  at  the  last  ply  is 
under  attack,  the  score  is  adjusted  as  follows: 
the  score  is  reduced  by  the  value  of  the  at- 
tacked piece  if  the  number  of  defenders  is  zero. 
Otherwise,  a  sequence  of  trades  is  performed 
on  the  square,  and  the  score  is  changed  based 
on  the  pieces  exchanged. 

15.  King  vs  Pawns:  if,  after  move  thirty,  the  King 
is  within  one  square  of  an  opposing  Pawn,  200 
points  are  awarded. 

16.  Knight  position:  any  Knight  on  column  9  or  7  is 
penalized  40  points. 

17.  Attacks:  ply  one  moves  that  place  an  opposing 
piece  en  prise  are  awarded  40  points. 

The  Gamma  Algorithm 

The  gamma  algorithm  was  mentioned  earlier 
during  the  discussion  concerning  how  to  determine 
whether  a  node  is  terminal  or  nonterminal.  Al- 


though the  algorithm  is  complex,  the  logic  behind 
its  decision-making  is  that  "if  the  situation  is  be- 
coming progressively  worse  and  better  moves  are 
available,  classify  this  node  as  terminal. " 

Possibilities  for  Chess-Related  Programs 

1.  Chess  end  game  program:  of  course,  computer 
analysis  becomes  much  simpler  at  the  end  of  a 
chess  game,  when  only  a  few  pieces  are  left. 
The  beginning  programmer  might  wish  to 
write  a  chess  program  to  play  end  games  be- 
tween a  few  selected  pieces  only.  The  program 
would  provide  any  initial  set-up  of  pieces  be- 
fore the  game.  The  strategy  is  shown  in  Fig. 
7-18. 

2.  Chess  variations:  perhaps  computers  would  be 
able  to  compete  better  in  playing  one  of  these 
chess  variations: 

•  Marseille  game— each  player  moves  two 
pieces  in  succession. 

•  Legal  game— white  uses  eight  extra  Pawns 
instead  of  a  Queen. 

•  Marked  Pawn— the  first  player  to  make  a 
capture  wins  this  chess  variation. 

•  Chancellor— the  Knight  and  Rook  have  the 
same  combined  move  capabilities  as  each 
one  has  individually. 

•  Grasshopper— pieces  may  leap  over  others; 
captures  are  as  usual. 

3.  Advisor:  a  computer  program  updated  with 
each  move  you  make  could  advise  you  of  situa- 
tions you  might  miss.  It  would  be  interesting  to 
compare  the  move  you  intend  to  make  with  the 
computer's  suggestion. 

4.  Check:  write  a  program  that  will  determine 
whether  Black  or  White  is  in  check  given  a 
particular  board  set.up. 

5.  Take  the  Queen:  write  a  program  that  can  de- 
termine whether  a  black  Rook  can  take  the 
white  Queen  in  no  more  than  four  moves  if 
neither  white  pieces  nor  any  other  black  pieces 
are  allowed  to  move  in  between  the  successive 
moves  of  the  black  Rook. 

6.  Eight  Queens:  this  chess  recreation  was  de- 
vised in  the  seventeenth  century.  The  chal- 
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IF  BLACK  KING 

* 


IS  IN  SAME 
ZONE  WITH  ROOK 


IS  NOT  IN  THE  SAME  ZONE  WITH  ROOK 


J 


VERTICAL  OISTANCE  BETWEEN  BLACK 
KING  AND  ROOK  IS 


MORE  THAN 
ONE  SQUARE 


OUTCOMES 

ROOK  MOVES 
HORIZONTALLY 
TO  OPPOSITE 
SIDE  OF  BOARD 


EOUAL  TO  ONE 
SOUARL 
J 


THE  DISTANCE  BETWEEN 
KINGS  IS   ^ 


GREATER  THAN 
TWO  SQUARES 


EOUAL  TO  TWO 
SQUARES 


THE  NUMBER  OF  HORIZONTAL 
SQUARES  BETWEEN  THE  KINGS  IS 


ODD 
WHITE  KING  MOVES    i 
ONE  SOUARE  TO-       I 
WARD  BLACK  KING    1 
ROOK  MOVES  ONE  ROOK  MOVES 

SOUARE  TOWARD  ONE  SOUARE 

BLACK  KING  HORIZONTAL 


CHESSBOARD: 


EVEN 

NOT  ANY 

4 

* 

WHITE  KING 

ROOK  MOVES 

MOVES  ONE 

ONE  SOUARE 

SOAURE  TOWARD 

TOWARD  BLACK 

BLACK  KING 

KING 

ZONE 


ZONE 


ZONE 


Fig.  7-18.  A  mechanical  chess  playing  machine  used  the  strategy  illustrated  in  this  chart  to  win  a  chess  end  game.  The 
machine  possessed  a  white  King  and  Rook  while  the  human  opponent  possessed  only  a  King. 


lenge  is  to  discover  how  many  ways  it  is  possi- 
ble to  place  eight  Queens  on  a  chessboard  in 
such  a  manner  that  no  one  Queen  can  be  taken 
by  another?  There  are  92  solutions  to  the 
problem,  which  may  be  found  by  a  computer 
program  using  this  strategy:  place  a  Queen  in 


the  first  column  and  row  of  the  board  and  a 
second  Queen  in  an  uncapturable  or 
conflict-free  row  of  column  2,  and  so  on  until  a 
solution  is  generated  or  a  conflict  arises.  When 
a  conflict  arises,  backtrack  to  the  column  im- 
mediately before  and  place  the  queen  in  a  new 
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Listing  7-5.  The  Card  Shuffling  Routine 

1 00 

REM    CARD    SHUFFLING 

ROUTINE 

110 

DIM    M<52) 

120 

N=52:    FOR    1=1    TO    N 

> 

130 

M(I)=l:    NEXT    I 

140 

FOR    1=1    TO    N-l 

150 

R=(N+1-I)*RND(0) 

160 

R=INT(R)+I 

170 

T=M(R) 

180 

M(R)=M(I) 

190 

M ( I ) =T 

200 

NEXT    I 

210 

FOR    1=1    TO    N 

220 

PRINTM(I);"    "5 

230 

NEXT    I  SPRINT    I 

conflict-free  position,  and  then  continue  on.  If 
no  other  conflict-free  position  exists, 
backtrack  to  the  next  previous  column  and 
place  that  Queen  in  a  new  conflict-free  posi- 
tion, and  so  on. 

7.  Five  Queens:  write  a  program  to  determine 
how  five  Queens  may  be  placed  on  the  board  in 
such  a  manner  that  every  square  is  dominated 
by  at  least  one  of  the  Queens. 

8.  Twelve  Knights  or  eight  Bishops:  write  a  pro- 
gram to  place  12  Knights  or  8  Bishops  on  the 
board  in  such  a  manner  that  all  other  squares 
are  dominated. 

9.  Knight's  tour:  this  program  would  find  the 
path  a  Knight  must  take  if  he  is  placed  on  any 
square,  and  in  64  moves,  he  must  land  on  each 
square  once  and  only  once.  This  problem  may 
be  solved  by  use  of  the  heuristic  strategy:  For 
any  square  x  on  the  chessboard,  let  p.  GO  (i=l, 
2,  3  .  .  .)  be  the  number  of  squares  accessible 
from  x  in  i  moves,  not  counting  squares  already 


visited.  The  knight  always  moves  to  a  square  x 
for  which  p.  (x)  exist,  choose  an  x  such  that  p2 
GO  is  also  as  small  as  possible. 


ADDITIONAL  GAME  PROGRAMS 

Below  are  three  listings  that  you  can  type  into 
your  computer  and  use. 

Card  Shuffler 

You  can  incorporate  the  handy  shuffling 
routine  in  Listing  7-5  into  computer  card  games. 
The  cards  of  the  deck  are  numbered  from  1  to  52  and 
are  stored  in  the  array  M(x).  A  separate  subroutine 
would  convert  these  numbers  into  corresponding 
spot  or  face  cards  and  suits. 

William  Tell  Game 

The  program  in  Listing  7-6  presents  a  puzzle 
that  will  challenge  those  of  all  ages.  The  program 


Listing  7-6:  The  William  Tell  Program 

1 00 
140 
170 
190 
200 

REM    WILLIAM    TELL 
PRINT"               WILLIAM    TELL" 
DIM   A* (20) ,B*(20) 
PRINT"WILLIAM    TELL    IS    A 
PRINT "GIVES    YOU    EXAMPLES 

3AME 
OF 

OF 
WHAT 

LOGIC    IN 
WILLIAM 

WHICH 
TELL 

THE    COMPUTER" 
IS    AND    YOU   HAVE" 
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210  PR I NT "TO  GUESS  THE  SECRET  BEHIND  THE  WORDS  THAT  CHARACTERIZE" 

220  PRINT "WILLI AM  TELL.   THE  COMPUTER  WILL  PROVIDE  YOU  WITH  EXAMP 

LES" 

230  PR I NT "AS  A  HINT.   YOU  MUST  THEN  GUESS  WHAT  WILLIAM  TELL  IS  AN 

D" 

240  PRINT" IS  NOT  BY  TYPING  IN  NEW  WORDS  YOU  THINK  MAY  CHARACTER I Z 

E" 

250  PR INT "WILLI AM  TELL.  IF  YOU  HAVEN'T  FIGURED  IT  OUT  AFTER  20" 

260  PR  I  NT  "TRIES  YOU  CAN  ASK  FOR  THE  ANSWER  OR  TRY  THE  SAME  SET" 

270  PRINT"AGAIN.   HERE  IS  YOUR  FIRST  EXAMPLE  AND  CHANCE  TO  GUESS:" 

290  PRINT."  F0RX  =  1T020 

300  READ  A*  <  X ) , B*  <  X ) 

310  NEXT 

330  REM  THIS  LIST  OF  EXAMPLES  MAY  BE  EXPANDED 

340  DATA  BRILLANCE, GLORY, GLASSES, SPECTACLES, MELLOW, INTOXICATED 

350  DATA  DULL , STUP I D , COMMOD I TY , OBJECT , SHEEN , BR I TE , UNDRESSED 

360  DATA  NUDE, MISSION, OBJECTIVE, SPEECH, PROSE, PASSIVE, INERT 

370  DATA  SUGGEST I ON , ADV I CE , SYMMETR I CAL , REGULAR , J I TTERY , NERVOUS 

380  DATA  I MPRESS I VE , MAGN I F I C I ENT , ERRONEOUS , FAULTY , FEEBLE , LAME 

390  DATA  CALLOUS, INSENSITIVE, SOOTHING, SERENE, SHALLOW 

400  DATA  SUPERFICIAL, NAMELESS, ANONYMOUS 

410  FOR  Y=l  TO  20 

420  PRINT"WILLIAM  TELL  IS  ";A*<Y>5"  BUT  NOT  ";B*<Y> 

430  INPUT"WILLIAM  TELL  IS..."JC* 

440  G0SUB730 

470  IF  F=l  THEN  560 

480  INPUT"BUT,  WILLIAM  TELL  IS  NOT...";C* 

490  G0SUB730 

500  IF  F=l  THEN  PRINT"WILLIAM  TELL  IS  ";C*,""M!" 

510  GOSUB  790 

530  PRINT 

540  NEXT  Y 

550  GOTO  640 

560  INPUT "BUT,  WILIIAM  TELL  IS  NOT";C* 

570  GOSUB  730 

580  IF  (F=1)AND  (G=l)  THEN  PR I NT "WHOOPS,  I  THOUGHT  YOU  GOT  IT" 

: PR I NT "LETS  TRY  SO  ME  MORE. ..": G=0: PRINT 

590  IF  (F=0)  AND  <G=1)  THEN  630 

600  IF  (F=0)  THEN  PRINT:  PRINT"BY  GOLLY,  MAYBE  YOU  HAVE  IT!  "."PRINT" 

LETS  TRY  ONCE  MORE. ..": PRINT: G=l 

610  IF  F=l  THEN  PRINT"WILLIAM  TELL  IS  "  5  C*,"  "MM":  PRINT 

620  GOTO  540 

630  PRINT"RIGHT!  !  !  !  !  " 

640  INPUT"  WOULD  YOU  LIKE  TO  TRY  AGAIN  <A)  OR  HEAR  THE  ANSWER  (H) " 

;A* 

650  IF  A*="H"  THEN  670   ELSE  370 

660  REM  ENCODED  ANSWER  FOR  WILLIAM  TELL 

670  PR I NT "THE  SECRET  IS:" 

680  A*="UGJJ?K/RCJJ/GQ/?LW/UMPB/AMLR?GLGLE/RUM/AMLQCASRGTC* 

/GBCLRGA? J / / / JCRRCPQ , " 

690  FOR  X=l  TO  LEN(A$) 

700  IF  MID*(A*,X, 1)="/"THEN  PRINT"  " ; ELSE  PRINT  CHR* (ASC (MID* (A*, X 

,l))+2); 
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710 
720 
730 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 

Tm  II  m 
*         m 


NEXT  X 

END 

F=0:REM  ANSWER  EVALUATION 

F0RX=1T0LEN<C*> 


MID*<C*,X 


1)=MID*(C*,X+1,  DTHEN  F=l  ."ELSE  NEXT  X 


IF 

RETURN 

REM  WRONG  ANSWER  CHOICES 

ON  RND(5)  GOTO  800   ,810   ,820   ,830   ,840 

PR I NT "NOPE... GIVE  IT  ANOTHER  TRY: ": RETURN 

PRINT"SORRY,  NOT  EVEN  CLOSE. ": RETURN 

PR INT "THAT  DOES  NOT  COMPUTE. II T ' S  WRONG) " ; RETURN 

PR I NT "YOU 'RE  STILL  COLD... TRY  AGAIN: ": RETURN 

PR I NT "THAT  ONE  ALMOST  BLEW  MY  CIRCUITS HERE'S  ANOTHER  HIN 

RETURN 


describes  "William  Tell,"  and  it's  your  job  to  de- 
termine what  else  characterizes  William  Tell.  The 
solution  is  encoded  so  that  typing  in  the  program 
does  not  reveal  the  secret. 

Personality  Test 

The  program  in  Listing  7-7  will  be  interesting 
to  guests.  A  series  of  verses  is  printed,  and  the 


player  is  asked  to  provide  an  interpretation.  Al- 
though this  program  is  based  upon  psychological 
research,  don't  take  it  too  seriously.  However,  it  is 
interesting  to  note  that  the  day  of  the  computer 
psychologist  is  near;  computers  have  already  been 
used  to  question  patients  and  provide  an  overall 
psychological  analysis  on  the  basis  of  standard 
psychological  tests. 


Listing  7-7:  The  Personality  Test  Program 


10  REM  PERSONALITY  TEST-  BASED  ON  PSYCHOLOGICAL  RESEARCH 

20  PR I NT "THE  FOLLOWING  PERSONALITY  TEST  IS  NOT  COMPREHENSIVE,  BUT 

HAS" 

30  PRINT"BEEN  USED  TO  DETERMINE  GENERAL  CHARACTERISTICS. " 
PRINT 

PRINT" INSTRUCTIONS:  THREE  VERSES  WILL  BE  PRINTED.   FOLLOWING" 
PR I NT "EACH  VERSE  WILL  BE  A  LIST  OF  INTERPRETATIONS.  INPUT" 
PR I NT "THE  CORRESPONDING  NUMBER  FOR  THE  INTERPRETATION  YOU" 
INPUT "BEL I EVE  IS  THE  BEST.  TYPE  'ENTER'  WHEN  READY."; A 
CLS  ' CLEAR  THE  SCREEN 


40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 


PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT 
PRINT" 1) 
PLANNING" 
160  PRINT"2) 
170  PR INT "3) 
LOOK" 

180  PRINT"4) 
190  PR INT "5) 
200  INPUT  XI 


a  BOOK  OF  VERSES  UNDERNEATH  THE  BOUGH, " 
A  JUG  OF  WINE,  A  LOAF  OF  BREAD-  AND  THOU" 

BESIDE  ME  SINGING  IN  THE  WILDERNESS-" 
OH,  WILDERNESS  WERE  PARADISSE  ENOW!" 

HAPPINESS  OR  CONTENTMENT  CAN  BE  FOUND  WITHOUT  MUCH 

HAPPINESS  IS  IN  ACCEPTING  &  ENJOYING  SIMPLE  THINGS" 
HAPPINESS  IS  ALWAYS  PRESENT-  IF  WE  TAKE  THE  TIME  TO 

IF  YOU  SET  YOUR  MIND  TO  IT,  HAPPINESS  CAN  BE  FOUND" 
HAPPINESS  IS  WHERE  WE  FIND  IT" 
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210  CLS  'CLEAR  SCREEN 

220  PRINT"    tHERE  IS  A  TIDE  IN  THE  AFFAIRS  OF  MEN, " 

230  PRINT"    WHICH,  TAKEN  AT  THE  FLOOD,  LEADS  ON  TO  FORTUNE; " 

250  PRINT"    OMITTED,  ALL  THE  VOYAGE  OF  THEIR  LIFE" 

260  PRINT"    IS  BOUND  IN  SHALLOWS  AND  IN  MISERIES. " 

270  PRINT"" 

280  PRINT" 1)  MAKE  THE  MOST  OF  YOUR  CHANCE  WHEN  YOU  BET  IT" 

290  PRINT" 2)  IN  MANY  CASES  OF  FAILURE,  PEOPLE  WERE  AFFECTED  BY  CI 

RCUM-" 

300  PRINT"    STANCES  OVER  WHICH  THEY  HAD  LITTLE  CONTROL." 

310  PRINT "3 >  ONE  WHO  PLANS  WELL  WILL  SURVIVE  WELL  UNDER  THE  LAWS 

OF  NATURE" 

320  PRINT "4)  LIFE  IS  SUCH  THAT  IT  PAYS  TO  WATCH  WHAT  YOU  DO  BEFORE 

YOU" 

330  PRINT"    RUN  INTO  TROUBLE. " 

340  PRINT "5)  ONE  SHOULD  BE  ON  THE  WATCH  FOR  OPPORTUNITY  TO  KNOCK, 

OTHER-" 

350  PRINT"    WISE  HE  WILL  MISS  OUT  ON  GOING  PLACES. " 

360  INPUT  X2 

370  CLS  'CLEAR  SCREEN 

380  PRINT"    NO  MAN  IS  AN  ISLAND,  ENTIRE  OF  ITSELF." 

390  PRINT 

400  PRINT" 1)  EVERYONE  SHOULD  CONSIDER  THE  NEEDS  &  WANTS  OF  OTHERS" 

410  PRINT"2>  USE  OTHER'S  INFLUENCE  TO  HELP  YOU  PLAN  YOUR  LIFE." 

420  PRINT "3)  ONE  WHO  ACTS  WITHOUT  REGARD  FOR  OTHERS  DOES  NOT 

REAALIZE" 

430  PRINT"    THAT  HE  IS  A  SOCIAL  ANIMAL." 

440  PR  INT  "4)  TO  GET  WHERE  YOU  WANT  TO  BE  IN  LIFE  YOU  MUST  REALIZE 

THE  " 

450  PRINT"    NEED  FOR  HELP  FROM  OTHERS. " 

460  PRINT "5)  ALTHOUGH  I  AM  THE  CAPTIAN  OF  MY  SOUL,  I  MUST  MAKE  MY 

WAY" 

470  PRINT"    IN  LIFE  AMOUNG  MANY  OTHER  CAPTIANS. " 

480  INPUT  X3 

490  CLS  'CLEAR  SCREEN 

500  PR I NT "THE  TEST  INDICATES  THAT  YOU  POSSESS  THESE  TRAITS: " 

510  IF  X1=1PRI NT "IRRESPONSIBLE "ELSE  IF  X1=2PR I NT "CONVENTIONAL  AND 

M0RALISTIC"ELSEIFX1=3PRINT"M0RALISTIC"ELSEIFX1=4PRINT"F0RESIGHTED" 

ELSE  PR I NT "PRACTICAL" 

520  I FX2=1 PR I NT "PRACTICAL  AND  LOGICAL "ELSE IFX2=2PRINT "MORALISTIC" 

ELSEIFX2=3PRINT "C0NVENTI0NAL"ELSEIFX2=4PRINT"HUM0R0US  AND  IRRE 

SPONS I BLE " ELSEPR INT" EGO-CENTR I C " 

530  IFX3=1PRINT"C0NVENTI0NAL"ELSEIFX3=2PRINT"PRACTICAL  AND  LOGICAL 

" ELSE I FX3=3PR I  NT " OB JECT I VE » ELSE I FX3=4PR I NT " EGO-CENTR I C " ELSEPRI NT 

"MORALISTIC" 

540  PRINT"IF  THE  SAME  TRAIT* IS  LISTED  TWICE  THEN  IT  IS  ALL  THE" 

550  PR I NT "MORE  INDICATIVE  OF  YOU.  " 

560  END 
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Chapter  8 


Control  and  Peripheral  Applications 


The  potentials  for  computer  control  and  monitoring 
of  the  home  are  endless;  only  a  few  of  the  possible 
applications  have  been  put  into  practice  with  the 
incorporation  of  microprocessors  in  household 
appliances.  Several  industry  demonstration  homes 
have  been  built  to  exhibit  microprocessor  control  of 
the  home.  The  following  suggestions  have  been 
included  in  these  homes  or  have  been  suggested  by 
leading  industry  forecasters  and  futurists: 

•  Climate  control  is  just  one  of  the  many  functions 
provided  by  the  home  computer  system.  The  rate 
of  temperature  change  and  humidity  is  noted,  and 
the  air  conditioner  or  heater  is  turned  off  before 
the  house  is  at  a  preset  level;  the  temperature 
will  "coast"  to  the  desired  level.  The  system  also 
times  the  thermostat.  In  winter  it  turns  down  the 
temperature  at  night,  turns  it  up  again  in  the 
morning,  and  then  turns  it  back  down  while  you 
go  off  to  work;  in  the  summer  it  controls  the  air 
conditioner  in  the  same  manner.  To  conserve 
energy,  the  hot  water  heater  is  also  turned  down 
during  certain  hours  when  hot  water  isn't  needed. 


A  vocal  input  interface  to  the  home  computer  is 
continuously  active,  waiting  for  a  command  by 
one  of  the  occupants.  All  appliances  and  lights 
controlled  by  the  system  can  be  switched  on  and 
off  by  voice  command  or  can  be  programmed  to 
start  and  stop  at  selected  times. 
An  intelligent  alarm  system  will  turn  off  all  elec- 
tricity and  gas  and  call  the  fire  department  in  case 
of  fire.  A  burglar  detection  system  calls  the 
police  if  an  intruder  is  detected  ultrasonically  or 
by  other  sensors. 

Interfaces  to  stereo,  televisions,  and  telephones 
are  also  interesting.  The  telephone  controller 
acts  as  a  phone  message  recorder  with  additional 
features.  If  a  message  is  taken,  the  unit  can  be 
instructed  to  call  someone  at  another  number  and 
deliver  the  message.  A  telephone  call  to  the 
machine  itself  can  allow  you  to  change  the  re- 
corded message,  play  back  messages,  or  control 
any  of  the  devices  connected  with  the  home  com- 
puter. A  telephone  file  of  commonly  used  num- 
bers is  stored  in  the  computer.  Additionally,  you 
can  dial  numbers  by  simply  calling  them  out  vo- 
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cally;  if  a  busy  signal  is  encountered  the  com- 
puter continually  redials  the  number  until  the  line 
is  free. 

•  The  stereo  interface  transforms  an  ordinary 
stereo  into  a  "jukebox"  from  which  recordings 
may  be  selected  and  played  at  the  touch  of  a 
button.  A  special  device  can  monitor  radio  broad- 
casts and  record  all  music;  commercials  and 
news  are  not  recorded  (voice  patterns  can  be 
distinguished  from  music).  You  can  preprogram 
the  volume  level  and  the  type  of  music  you  want 
to  have  recorded  for  special  purposes  such  as 
musical  interludes  and  background  music  for 
dinner.  A  given  song  can  be  played  a  selected 
number  of  times,  or  the  computer  may  be  pro- 
grammed to  skip  to  the  next  song  on  a  record  or 
cassette. 

•  The  television  interface  will  turn  on  the  set  at 
selected  times  or  record  shows  on  video  tape;  a 
directional  antenna  or  satellite  dish  is  automati- 
cally turned  for  the  best  reception. 

•  Even  the  bar  is  automated.  Drinks  of  your  choice 
are  mixed  automatically  (bottles  of  ingredients 
are  connected  by  hoses  to  the  special  machine). 

•  You  can  use  a  voice  synthesizer  to  audibly  awake 
you  in  the  morning  with  "Good  Morning  Mr.  T. 
It's  8  A.M.  ,"  and  then  summarize  your  itinerary 
for  the  day. 

•  An  automatic  system  can  release  fresh  food  and 
water  for  pets  left  at  home  for  a  long  period,  can 
sense  when  the  animal  has  not  eaten  the  food,  and 
can  notify  the  veterinarian  to  check  the  home. 

Some  other  applications  currently  being  used 
by  hobbyists  include  the  following: 

•  Voice  or  sound  synthesizers  are  incorporated 
into  games  to  provide  dialogue  or  sound  effects. 

•  Voice  input  computers  are  used  for  recording 
information  called  out  by  an  operator.  One  hob- 
byist uses  such  a  system  to  make  simple  calcula- 
tions in  his  home  workshop  while  his  hands  are 
full.  Although  such  systems  are  usually  limited  to 
a  vocabulary  of  about  thirty  words,  some  hob- 
byists have  managed  to  develop  automatic 
"dictation-taking"  typewriters  for  limited  pur- 


poses (a  word  capacity  of  100  is  considered 
maximum). 

•  A  hobbyist  has  used  his  small  computer  to  re- 
place over  7000  mechanical  relays  necessary  to 
control  a  pipe  organ  in  his  home.  Similarly,  com- 
puters could  be  used  to  light  the  keys  on  an  organ 
to  help  you  learn  to  play  a  song.  Although  a 
commercial  piano  player  has  been  developed  to 
digitally  record  music  played  and  play  it  back 
later,  the  cost  is  high.  If  you  were  to  implement 
such  a  system  with  your  computer,  additional 
features  could  be  added;  speed,  sustain,  attack, 
and  other  features  could  all  be  varied. 

•  One  hobbyist  is  using  a  microprocessor  to  create 
intelligent  test  equipment  that  can  automatically 
perform  a  set  of  test  routines  on  a  given  circuit. 
This  is  an  interesting  application  for  amateur 
radio  operators.  A  calculating  oscilloscope  is  able 
to  compute  exact  items  for  rises,  perform  inte- 
grals, and  differentials,  compute  peak  areas, 
RMS  values,  and  peak  to  peak  distances,  and  do 
n-point  averaging;  all  data  can  be  stored. 

•  With  the  addition  of  silver  contacts  and  a  small 
amplifier,  your  computer  could  serve  as  a 
biofeedback  monitor  or  lie  detector.  Galvanic 
skin  resistance,  temperature,  or  heartbeat  could 
all  be  measured  with  the  use  of  the  proper  in- 
struments. This  information  could  be  sent 
through  a  joystick  port  or  other  J/D  port  and 
analyzed  or  displayed  by  the  computer.  An  article 
describing  the  construction  and  operation  of  a 
computer  biofeedback  monitor  appeared  in  80 
Microcomputing,  October  1983,  pp.  176-192. 

The  capabilities  of  a  computer  allow  sophisti- 
cated analysis  and  conversion  of  waveforms  not 
obtainable  with  standard  biofeedback  equipment. 
An  assembly  language  program  could  be  written  to 
convert  alpha  brain  wave  signals,  which  are  in  the 
range  of  8-12  Hz,  to  audible  sound  by  raising  all  the 
frequency  components  of  the  brain  wave  signal  to 
the  audible  range  while  preserving  the  ratios  be- 
tween frequencies.  Such  a  program  could  be  used 
for  a  variety  of  unique  applications— for  example, 
for  converting  your  voice  from  a  very  deep  level  to  a 
"Mickey  Mouse"  level  or  for  dealing  with  any  situ- 


202 


ation  requiring  the  conversion  of  analogue  signals. 
You  can  envision  future  digital  music  players  that 
have  the  added  capability  of  altering  songs  through 
the  use  of  hardwired  computer  circuits. 

•  A  New  Hampshire  resident  uses  his  home  com- 
puter to  control  his  wood  stove ;  he  reports  a  10  to 
30  percent  improvement  in  efficiency. 

•  A  digital/audio  file  in  which  a  standard  cassette 
interface  is  used  to  record  digital  information 
between  songs  (audio)  could  be  used  to  index 
songs,  prompt  a  vocal  announcement  by  a  voice 
synthesizer,  or  control  volumes,  speakers, 
times,  or  mixing. 

•  Hobbyists  have  connected  computers  to  exercise 
equipment,  such  as  jogging  pads  or  exercise 
bikes,  to  keep  track  of  energy  expended,  speed, 
or  time.  These  special  input  devices  could  also  be 
used  as  controllers  for  special  video  games. 

•  Special  software  and  hardware  configurations 
could  permit  two  or  more  opposing  players  to  use 
separate  but  interconnected  computers  in  such  a 
manner  that  they  cannot  see  each  other's 
gamefield.  Games  of  this  type  (multiplayer 
games)  are  gaining  in  popularity  on  computer 
networks. 

•  Chess  fanatics  who  also  happen  to  be  gadget 
fanatics  would  take  delight  in  a  computer- 
interfaced  chessboard  capable  of  sensing  the 
movement  of  pieces.  A  robotic  arm,  of  course, 
would  move  pieces  for  the  computer. 

•  Personal  computers  can  be  used  to  generate  ti- 
tles for  home  video  or  film  movies  that  can  in- 
volve animated  color  graphics.  Titles  for  slide 
shows  could  also  be  made  by  photographing  the 
screen. 

•  Along  similar  lines,  your  computer  could  flash 
subliminal  messages  over  television  programs 
for  behavior  modification.  These  would  last  1/30 
of  a  second  and  assail  your  subconscious  with 
messages  to  help  you  control  your  weight,  deal 
with  stress,  smoking,  or  alcoholism,  or  become 
motivated  toward  success.  Messages  such  as  "I 
exercise"  and  "I  am  successful"  could  be  re- 
peated every  minute. 

•  Radio  scanner  buffs  can  interface  their  computer 


to  a  scanner  via  CompuScan™,  a  Bearcat  product, 
allowing  them  to  monitor  up  to  200  channels.  The 
computer  can  display  the  frequency  and  the  de- 
scription of  the  channel  received  on  a  video 
monitor. 
•  Weather  sensors  such  as  electronic  anemome- 
ters, thermometers  and  barometers  can  be  in- 
terfaced with  a  computer  to  provide  automatic 
weather  monitoring. 

HOUSEHOLD  CONTROL  DEVICES 

The  interfaces  that  allow  a  personal  computer 
to  help  you  out  around  the  house  are  now  commer- 
cially available  from  the  firms  listed  below.  For 
those  with  a  hardware  bent,  schematics  for  a  simple 
control  latch  system  and  A/D  converter  are  in- 
cluded at  the  end  of  this  chapter. 

The  firms  have  been  divided  into  two  groups, 
depending  upon  the  type  of  product  they  offer: 
those  listed  under  "Personal-Computer  Systems" 
offer  products  that  are  designed  to  work  with  one  or 
more  popular  brands  of  personal  computers;  those 
listed  under  "Dedicated  Systems"  offer  products 
that  are  made  specifically  for  home  control  applica- 
tions but  can  be  interfaced  to  computers  by  elec- 
tronic geniuses. 

Personal  Computer  Systems 

Circuit  Science,  4  Townsend  West,  Nashua, 
NH  03063;  (603)  880-4066.  Circuit  Science  man- 
ufactures the  CSI-1200,  a  controller  interface  that 
plugs  into  an  RS-232  port.  This  system  eliminates 
the  BSR  control  box,  but  uses  the  BSR  remote 
modules  for  each  appliance  controlled. 

Compu-Home  Systems,  3333  East  Florida 
Ave.,  Denver,  CO  80210;  (303)  777-6600.  This 
firm  manufactures  the  Tomorrowhouse  system  for 
the  Apple  II,  which  controls  lights,  appliances, 
solar-heating  systems,  sprinklers,  hot  tubs,  indoor 
heat,  and  air-conditioning.  It  guards  against  bur- 
glars and  reminds  you  of  appointments  and  impor- 
tant dates. 

Cyberlynx  Computer  Products,  4828 
Sterling  Dr.,  Boulder,  CO  80301  (303)  444-7733. 
Cyberlynx  offers  the  Smarthome  I  system  for  con- 
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nection  to  your  Apple  RS-232  port.  It  can  be  at- 
tached to  an  infrared  detector  to  sense  heat  or 
movement  in  a  room  and  cause  lights  and  appliances 
to  turn  on  and  off  to  scare  off  an  intruder.  The 
system  is  also  configured  to  control  appliances  for 
convenience  and  energy  saving. 

HyperTek,  P.O.  Box  137,  Route  22  East, 
Salem  Industrial  Park,  Whitehouse,  NJ  08888; 
(201)  874-4773.  HyperTek  manufactures  the 
HomeBrain,  a  dedicated  microprocessor  for  home 
control  that  uses  sensor  for  heat,  temperature,  and 
motion.  It  uses  Leviton  wireless  controllers  and 
hardwired  relays  to  integrate  and  schedule  many 
home  appliances.  It  can  be  connected  with  any  per- 
sonal computer  via  an  RS-232  port. 

Intelectron,  1275  A  St.,  Hayward,  CA 
94543;  (415)  581-4490.  This  firm  offers  The  Con- 
trol Center,  a  system  operating  on  the  same  princi- 
ple as  the  BSR  system. 

Infield  Software,  2422  Alvin  St.,  Suite  100, 
Mountain  View,  CA  94043.  Infield  sells  the  Home 
Controller  for  connection  to  your  Apple  II  Plus  or 
He;  it  incorporates  the  BSR  home  control  unit  to 
run  appliances,  lights,  sprinklers,  spa,  and  so  on. 

Dedicated  Systems  and  Hardware 

Anova  Electronics,  Three  Waters  Park 
Drive,  San  Mateo,  CA  94403;  (415)  572-9686. 
Anova  sells  three  dedicated  microprocessor-based 
systems  for  home  control.  These  systems  can  be 
used  for  control  via  telephone;  and  offer  timed  or 
instant  remote  control  of  appliances,  and  protection 
against  fire,  burglary,  and  utility  failure. 

Audio  Command  Systems,  46  Merrick 
Road,  Rockville  Center,  New  York,  NY  11570; 
(516)  766-2627.  This  firm  offers  remote  control 
devices  including  low-voltage  lighting-control 
systems,  motorized  drapery  controllers,  stereo 
components,  and  robots. 

BSR,  Route  303,  Blauvelt,  NY  10913;  (914) 
358-6060.  This  firm  is  the  granddaddy  of  home 
control  systems;  their  BSR  System  is  used  by  a 
variety  of  other  manufacturers  as  a  component  of 
their  system.  The  BSR  controller  encodes  a  signal 
on  the  60-cycle  alternating  current  of  the  house's 
electrical  system,  eliminating  the  need  for  special 


wiring  throughout  the  house.  Each  controlled 
appliance  is  plugged  into  a  remote  unit  that  may  be 
turned  on  and  off  the  the  main  control  box  of  the 
BSR  system. 

Leviton,  59-25  Little  Neck  Parkway,  Little 
Neck,  NY;  11362  (212)  229-4040.  Levition  man- 
ufactures electronic  control  devices  that  allow 
computer  control  of  lighting  and  appliances. 

Technicom  International,  23  Old  Kings 
Highway  South,  Darien,  CT  06820;  (202)  655- 
1299.  This  firm  offers  the  Energy  Control  System 
(ECS),  which  can  control  up  to  eight  devices  in  the 
home  using  BSR  remote  modules. 

The  Use  of  Home  Control  Systems 

Users  of  these  control  systems  report  applica- 
tions as  diverse  as  energy  conservation  through 
keeping  various  rooms  at  desired  temperatures  for 
different  times  of  day,  sprinkling  the  lawn  according 
to  the  amount  of  ground  moisture,  securing  doors, 
signaling  a  baby's  movements  in  a  crib,  making  and 
logging  phone  calls,  detecting  the  seepage  of  water 
into  a  basement,  opening  and  shutting  drapes  and 
starting  the  roast  by  a  phone  call  from  the  office. 

The  control  system  can  be  arranged  in  such  a 
manner  that  one  computer  controls  the  entire 
house,  or  a  network  of  computers  (one  in  each  area 
of  the  house)  can  be  interconnected  via  RS-232 
communications  channels  as  shown  in  the  diagram 
in  Fig.  8-11 

MUSIC 

A  few  music/voice  synthesizers  are  now  on 
the  market  as  personal  computer  peripherals.  Pos- 
sible uses  for  these  include  the  following: 

•  Use  them  with  games  for  special  sound  effects. 

•  Use  them  with  a  music  composing  program  to 
generate  and  play  original  music  continuously. 

•  Use  a  music  synthesizer  as  programmable 
drummer  to  accompany  other  instruments.  Vari- 
ous drum  sounds,  speeds,  and  patterns  including 
Latin,  swing,  jazz,  waltz,  and  march,  could  be 
programmed.  The  metronome,  cymbals,  and 
other  percussion  devices  could  also  be  imitated. 

•  Use  a  voice  synthesizer  to  "sing"  the  vocals  of  a 
music  piece,  producing  a  unique  composition. 
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Fig.  8-1 .  Five  areas  of  a  computer-controlled  house.  Separate  microprocessor-based  nodes  communicate  via  an  intelligent 
communications  processor  and  an  advanced  data  link  controller. 


•  Use  the  standardized  MIDI  (Musical  Instrument 
Digital  Interface)  to  connect  a  home  computer  to 
one  or  more  electronic  musical  synthesizers  to 
play  or  digitally  record  your  compositions  on  a 
standard  electronic  keyboard.  Comprehensive 
reformation  on  MIDI  is  available  from:  MIDI 
Users  Group,  P.O.  Box  593,  Los  Altos,  CA 
94022,  phone  (408)  253-4684. 

Additional  applications  in  the  area  of  music 
include  the  following: 

•  If  you  have  a  plotter  or  a  graphic  printer  or  termi- 
nal, your  musical  compositions  or  those  of  the 
computer  could  be  displayed  in  standard  musical 
notation. 

•  Loops  of  the  proper  speed  and  duration  will  gen- 
erate a  specific  audible  frequency  on  an  AM  radio 
placed  next  to  a  CPU.  A  machine  language  or 
BASIC  program  to  make  use  of  this  effect  could 
produce  sounds  that  resemble  music. 

•  If  music  is  digitized  with  the  use  of  an  A/D  con- 
verter, it  can  be  altered  in  various  ways.  Here  are 
some  examples: 

—Selected  voices  or  instruments  could  be 
removed/added  after  an  analysis  of  frequency 
content. 

—The  music  could  be  played  at  any  selected  rate 


without  a  change  in  pitch,  or  could  be  played 
backwards  for  special  effect.  You  could  trans- 
form a  given  composition  into  another  style  of 
your  choice. 
•  Today's  color  organs,  which  produce  a  pulsating 
light  in  response  to  music,  rely  upon  analog  cir- 
cuits and  often  do  not  produce  good  results.  A 
dedicated  microprocessor  could  be  used  to  con- 
trol the  lights  instead,  resulting  in  a  more  favor- 
able response. 

AN  EXTERNAL  DEVICE 
CONTROLLER  FOR  YOUR  COMPUTER 

The  project  described  below  will  allow  the 
electronic  enthusiast  to  economically  interface  his 
or  her  computer  with  external  devices.  For  those 
not  electronically  inclined,  controlling  interface 
circuit  boards  are  commercially  available  for  under 
$200. 

The  controller  described  here  will  allow  you  to 
economically  interface  your  computer  with  virtu- 
ally any  external  electrical  device;  up  to  sixteen 
devices  (channels)  can  be  controlled  simultane- 
ously. 

This  interface  switches  on  and  off  a  small 
amount  of  current  to  control  relays  that  in  turn  can 
control  larger  electrical  loads  (see  Fig.  8-2).  Prac- 
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Fig.  8-2.  Diagram  of  output  devices  that  can  be  selected  to  match  the  controlled  load. 


tically  all  eight-bit  computers  can  drive  the  inter- 
face, and  a  four-bit  microprocessor  could  drive  a 
modified  interface  for  specialized  control  purposes. 

The  interface  consists  of  three  modules:  a  six- 
teen-channel  demultiplexer,  a  sixteen-bit  "mem- 
ory, "  and  sixteen  single  transistor  driver  amplifiers 
(see  Fig.  8-3);  the  construction  cost  should  not 
exceed  $30.  The  interface  is  designed  to  be  con- 
nected directly  with  a  parallel  output  port. 

The  four  low-order  bits  of  data  coming  from 
the  parallel  output  port  are  inputted  to  the  demul- 
tiplexer. The  demultiplexer  selects  the  appropriate 
output  pin  and  pulls  it  low  (for  example,  if  the  four 


bits  are  0000,  channel  zero  will  be  selected  and  pin 
one  pulled  low).  Since  only  sixteen  individual  sig- 
nals are  possible  with  four  bits,  sixteen  is  the 
maximum  number  of  channels  that  can  be  selected. 
Each  output  signal  switches  the  state  of  one  of  the 
sixteen  flip-flop  chips.  Thus,  the  flip-flops  act  as  a 
sixteen-bit  memory  to  maintain  the  status  of  each 
channel  continuously,  Signals  sent  to  one  flip-flop 
will  alternatively  toggle  the  corresponding  channel 
on  and  off.  The  fifth  bit  of  the  data  byte  is  first 
buffered  and  then  connected  to  the  reset  pin  of  each 
flip-flop.  Thus,  all  channels  may  be  reset  (turned 
off)  simultaneously  through  the  use  of  the  fifth  bit. 
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The  software  must  output  the  signal  corre- 
sponding to  the  correct  channel  to  control  devices 
connected  to  the  interface.  However,  channel  can- 
not be  switched  on  and  off  continuously  by  selecting 
that  channel  over  and  over  again.  This  restriction  is 
due  to  the  fact  that  the  flip-flops  only  switch  on 
rising  edges  from  the  demultiplexer,  which  occur 
only  if  the  multiplexer  has  been  changed  to  select  a 
different  channel.  Therefore,  to  switch  a  given 
flip-flop  on  and  then  off,  follow  these  steps:  1) 
select  the  channel  with  the  proper  data  byte,  2) 
select  any  other  channel  (for  example  an  unused 
channel),  3)  wait  for  the  first  channel  to  toggle  on  4) 
reselect  the  first  channel  to  turn  it  off. 


AN  A/D  CONVERTER  FOR  YOUR  COMPUTER 

The  A/D  (analog  to  digital)  converter  has 
many  applications  for  use  with  personal  computers. 
It  will  allow  you  to  interface  joysticks  or  poten- 
tiometers with  computers  for  use  during  editing, 
video  drawing,  or  game  playing.  Automation  of  test 
equipment  and  control  over  robots  or  machines  are 
among  the  many  other  possible  applications. 

The  eight-channel  interface  described  here  is 
designed  for  use  in  converting  signals  in  the  range 
of  about  0. 1  Hz  to  100  Hz,  which  is  sufficient  for  the 
applications  listed  above  (see  Fig.  8-4).  The 
"sample-and-hold"  principle  is  used  in  the  design  to 
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Fig.  8-3.  A  schematic  diagram  of  the  control  latch  system. 
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store  an  analog  signal  as  a  capacitor  charge  until  it  is 
processed.  The  two  power  supplies  necessary 
should  fall  between  4.5  to  6.5  V  and  12  to  15V 
respectively. 

An  assembly  language  software  description  is 
provided  below;  you  should  supply  the  op  codes  for 
your  microprocessor. 

1.  Initialize  the  pointer 

2.  Load  the  next  byte  for  output 

3.  Output  the  byte 

4.  Set  the  accumulator  equal  to  the  pointer 

5.  Select  the  next  channel  and  enable  the 
sample  and  hold  process 

6.  Turn  off  the  sample  and  hold  strobe 


7.  Turn  off  the  selected  sample  and  hold 

8.  Decrement  the  value  of  the  pointer 

9.  If  the  pointer  is  greater  than  or  equal  to 
zero,  loop  back  to  step  2;  otherwise  return 
to  the  main  program. 

As  you  can  see,  the  program  sequentially  ad- 
dresses a  channel,  outputs  the  voltage  that  is  to  be 
held,  disables  that  channel,  repeats  the  process  for 
the  other  channels,  and  then  returns  to  the  main 
program.  You  could  arrange  the  program  to  act  as  an 
interrupt  handler  signaled  by  a  clock  strobe  on  an 
interrupt  line. 

A  D/A  (digital  to  analog)  converter  can  also  be 


208 


built  or  purchased  and  used  to  produce  speech, 
music,  or  sound  effects  or  to  control  the  speed  of  a 
motor,  among  many  other  applications. 

PERSONAL  ROBOTS 

Today  the  development  of  personal  robotics  is 
at  the  stage  personal  computers  development  was 
in  the  early  1970s.  It's  a  young  field  with  great 
potential  and  much  remaining  to  be  explored.  Per- 
sonal robotics  is  discussed  here  as  a  control  appli- 
cation for  your  personal  computer,  considering  that 
many  robots  available  on  the  market  rely  upon  ex- 
ternal microcomputers  for  partial  or  complete  con- 
trol over  their  actions. 

The  state  of  the  art  personal  robot  can  loco- 
mote,  talk,  and  perhaps  perform  crude  manipulator 
functions  or  chores  such  as  vacuuming  the  house  or 
automatically  finding  the  battery  recharge  unit 
when  necessary.  Capabilities  such  as  setting  the 
table  like  a  maid,  fetching  a  beer,  or  mowing  the 
lawn  like  a  loyal  son  are  currently  out  of  the  ques- 
tion. As  of  this  date,  none  of  the  available  products 
even  come  close  to  replacing  appliances  or  off- 
spring. In  fact,  most  of  the  robots  for  sale  do  not 
have  functional  arms,  and  few  are  self-contained; 
most  communicate  with  their  host  computer  by 
means  of  a  cord  or  via  radio  transmissions.  At 
present,  personal  robots  serve  little  purpose  other 
than  entertainment  and  as  an  educational  tool. 
However,  advances  are  being  made  to  allow  more 
practical  use  of  personal  robots,  and  you  could  be 
part  of  that  frontier! 


Manufacturers  of  Personal  Robots  include: 

Androbot,  Inc. 
101  E.  Daggett  Dr. 
San  Jose,  CA  95134 

Heath  Co. 

Benton  Harbor,  MI  49022 

Microbot,  Inc. 
453-H  Ravendale  Dr. 
Mountain  View,  CA  94043 

RB  Robot  Corp. 

14618  W.  6th  Ave.,  Suite  201 

Golden,  CO  80401 

Robotics  International  Corp. 
2335  E.  High 
Jackson,  MI  49203 

Sandhu  Machine  Design,  Inc. 
308  S.  State  St. 
Champaign,  IL  61820 

Technical  Micro  Systems,  Inc. 

366  Cloverdale 

Box  7227 

Ann  Arbor,  MI  48107 

Terrapin,  Inc. 
380  Green  St. 
Cambridge,  MA  02139 
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Chapter  9 


Artificial  Intelligence,  the  Future 
Personal  Computer,  and  Networking 


In  his  book  Future  Shock,  Alvin  Toffler  describes  a 
future  home  computer  system  named  OLIVER,  the 
primary  purpose  of  which  is  to  help  the  owner  deal 
with  decision  overload. 

"In  its  simplest  form,  OLIVER  would  merely 
be  a  personal  computer  programmed  to  provide  the 
individual  with  information  and  to  make  minor  deci- 
sions for  him.  At  this  level,  it  could  store  informa- 
tion about  his  friends'  preferences  for  Manhattans 
or  martinis,  and  data  about  traffic  routes,  the 
weather,  stock  prices,  and  so  on.  The  device  could 
be  set  to  remind  him  of  his  wife's  birthday  or  to 
order  flowers  automatically.  It  could  renew  his 
magazine  subscriptions,  pay  the  rent  on  time,  order 
razor  blades  and  the  like.  As  computerized  infor- 
mation systems  expand,  they  would  tap  into  a 
worldwide  pool  of  data  stored  in  libraries,  corpo- 
rate files,  hospitals,  retail  stores,  banks,  govern- 
ment agencies,  and  universities.  OLIVER  would 
thus  become  a  kind  of  universal  question  answered 
for  him.  However,  some  computer  scientists  see 
much  beyond  this.  It  is  theoretically  possible  to 
construct  an  OLIVER  that  would  analyze  the  con- 


tent of  an  owner's  words,  scrutinize  his  choices, 
deduce  his  value  system,  update  its  own  program  to 
reflect  changes  in  his  values,  and  ultimately  handle 
larger  and  larger  decisions  for  him." 

FUTURISTIC  APPLICATIONS 
THAT  ARE   FEASIBLE   NOW 

Although  many  of  these  applications  will  prob- 
ably not  be  feasible  within  the  coming  decade,  some 
ideas  being  put  into  practice  include  the  following: 

Medical  monitoring.  A  specially  designed 
microcomputer  could  be  programmed  to  make 
checks  of  your  bodily  functions.  Information  such  as 
nutritional  and  caloric  intake,  pulse  rate,  blood 
pressure,  and  weight  loss  or  gain  could  be  entered 
into  a  program  especially  tailored  for  your 
metabolism.  Specific  conditions  that  warrant  a  visit 
to  the  doctor  could  be  computed  and  outputted. 

With  a  telephone  modem,  the  computer  could 
transmit  such  information  to  a  larger  data  bank  for 
processing.  Additionally,  answers  to  common 
medical  questions  could  be  provided  by  the  data 
bank. 
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Information  research.  The  facilities  to  tap 
computerized  information  banks  (for  example,  the 
information  banks  of  the  New  York  Times  and  the 
World  Trade  Center)  are  already  available  via  tele- 
phone modems  connected  to  such  service  com- 
panies as  The  SourceSM.  Such  services  are  espe- 
cially useful  to  businessmen,  authors,  and 
educators  who  need  to  locate  specialized  informa- 
tion. In  addition,  a  home  computer  interfaced  to  a 
standard  modem  could  tap  the  Library  of  Con- 
gress's computerized  card  catalog  as  well  as 
numerous  other  data  banks. 

Personalized  news  service.  A  home  com- 
puter on-line  with  a  news  service  could  select  news 
items  by  category  and  store  them  for  review  later 
by  the  home  owner.  The  United  Press  International 
wire  service  provides  all  major  national  and  world 
news;  news  items  are  coded  by  category,  and  thus, 
a  computer  on-line  could  select  items  of  interest. 

Travel  information.  A  travel  service  data 
bank,  filled  with  information  regarding  flights, 
schedules,  prices,  availability,  reservations,  and  so 
on  could  supply  all  the  information  necessary  for 
you  to  plan  a  vacation  or  an  outing,  via  a  telephone 
modem. 

Stock  market  quotes.  A  continual  Dow 
Jones  listing  service  could  supply  stock  market 
quotes  to  the  home  computer  via  a  telephone 
modem.  Such  a  service  would  be  a  boon  to  those 
attempting  stock  market  analyses  with  their  com- 
puter. 

Educational  programs.  Quality,  com- 
prehensive educational  programs  are  being  de- 
veloped for  the  growing  home  computer  market.  A 
home  video  tape  player  can  be  used  in  conjunction 
with  the  computer  to  provide  television  images  that 
cannot  be  provided  with  conventional  computer 
graphics.  In  addition,  the  computer  can  randomly 
access  video  images  from  a  video  disk  to  provide 
interactive  education. 

Business  extensions.  Computer  program- 
mers, professional  investors,  and  other  profession- 
als who  do  most  of  their  work  with  a  computer 
system  are  beginning  to  install  home  terminals; 
soon  traveling  to  an  office  will  be  unnecessary. 

Computer  networks.  Numerous  amateur 


and  professional  computer  networks  have  been 
formed  for  the  exchange  of  programs,  ideas,  tips, 
and  other  information.  Commercially  available 
"bulletin  board"  software  allows  anyone  with  a 
computer  and  auto-answer  modem  to  form  their 
own  network.  Consult  Appendix  A  for  a  listing  of 
computer  bulletin  board  systems  available  in  your 
area. 

Intelligent  devices.  A  home  computer  in- 
terfaced with  household  devices  could  create  a 
complete  home  management  system.  Climate  con- 
trol, solar  energy  system  control,  television  set 
timing,  cooking  device  control,  and  so  on  could  all 
be  done  simultaneously  by  a  properly  equipped 
home  computer.  With  falling  costs  for  microcom- 
puters, such  control  applications  are  becoming 
economical. 

Other  possibilities  include  a  complete, 
computer-controlled  diagnostic  system  for  your 
automobile. 

Artificial  intelligence?  A  popularly  quoted 
assessment  of  computers  and  people  goes  like  this: 
"Computers  are  fast,  accurate,  and  stupid.  People 
are  slow,  inaccurate,  and  brilliant.  Together  they 
can  perform  incredible  feats  beyond  the  imagina- 
tion." With  the  advent  of  artificial  intelligence, 
computers  have  begun  to  enter  the  "brilliant"  cat- 
egory. So-called  expert  systems  are  capable  of 
making  informed  decisions  on  the  basis  of  hundreds 
of  thousands  of  rules  and  relationships  much  as  a 
human  expert  can.  Although  most  artificial  intelli- 
gence programs  are  intended  for  large  computer 
systems,  some  of  this  technology  will  be  available 
in  the  near  future  for  the  personal  computer. 
Numerous  applications  in  medicine,  business,  sci- 
ence, and  education  are  foreseen.  For  further  in- 
formation and  experimental  programs  for  use  on 
your  personal  computer,  see  Artificial  Intelligence, 
by  Neil  Graham,  TAB  Books,  Inc.,  Blue  Ridge 
Summit,  PA  17214. 

FUTURISTIC  APPLICATIONS 
THAT  ARE  NOT  YET  FEASIBLE 

However,  not  all  applications  suggested  by  the 
media  are  practical,  and  in  some  cases  may  not  be 
possible  to  accomplish  with  current  technology. 
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The  examples  of  impractical  applications  described 
below  will  serve  to  define  the  limits  of  personal 
computer  control/peripheral  applications. 

Personal  security  system.  By  determining 
heights,  weights,  and  diameters  of  all  who  come  to 
your  doorstep,  your  computer  will  be  able  to  recog- 
nize whether  or  not  that  person  is  an  acquaintance 
(based  on  previously  stored  information). 

The  problems  associated  with  this  application 
are  obvious;  the  equipment  to  determine  heights 
and  diameters  of  a  person  in  motion  would  be  dif- 
ficult to  interface  with  the  computer,  and  no  pur- 
pose is  given  for  spending  hundreds  of  dollars  to 
accomplish  such  a  feat. 

Robot  maid.  Some  authors  have  claimed  that 
domestic  androids  will  be  available  within  a  few 
years  to  do  such  chores  as  vacuuming  a  home, 
walking  the  dog,  washing  dishes,  preparing  food, 
and  so  on  and  will  have  the  capability  of  carrying  on 
a  natural  conversation  with  the  owner. 

-Although  several  robots  are  commercially 
available  for  home  use,  the  application  of  these  as 
useful  household  servants  has  not  passed  the  point 
of  tedious  control  of  their  every  movement  by  hu- 
mans. Some  robots  are  available  with  sensors  that 
enable  them  to  avoid  collisions  with  people  and 
objects  such  as  furniture.  These  robots  can  even 
vacuum  a  floor  in  a  semirandom  fashion,  but  further 
applications  are  limited  by  inadequate  mechanics 
and  the  problem  computers  have  in  recognizing 
"univefsals."  Dennis  Gabor  described  this  problem 
in  his  book  Innovations. 

"One  can  say  that  it  is  incomparably  easier  to 
design  a  computer  for  solving  a  wave  equation  be- 
yond the  reach  of  the  best  analyst  than  to  design  one 
that  will  pick  up  and  empty  ashtrays,  because 
ashtrays  come  in  so  many  shapes. " 

Presumably,  the  use  of  the  television  camera 
is  the  only  way  to  give  a  robot  "sight."  Computer 
analysis  of  the  thousands  of  individual  pixels,  or 
dots,  in  a  television  picture  to  determine  what  ob- 
jects are  in  the  picture  is  not  yet  practical  for  per- 
sonal computers. 

The  problems  of  speech  input  are  also  numer- 
ous. A  very  large  memory  capacity  and  a  high  pro- 
cessing speed  are- necessary  for  "understanding" 


anything  even  approaching  normal  conversation. 

However,  hobbyists  show  considerable  inter- 
est in  robotics,  and  over  the  next  few  years  they 
will  produce  increasingly  sophisticated  robots. 

Controlling  an  automobile.  The  problems 
associated  with  the  computerized  control  (driving) 
of  an  automobile  are  much  the  same  as  those  as- 
sociated with  the  control  of  domestic  androids. 

NETWORKING 

The  world  is  your  neighbor  via  your  mi- 
crocomputer. Within  the  past  few  years  there  has 
been  a  tremendous  growth  in  networking,  the  con- 
nection of  computers  to  other  computers  through 
the  use  of  modems  and  phone  lines.  Many  experts 
predict  that  networking  will  be  one  of  the  primary 
uses  of  personal  computers  in  the  future. 

What  services  are  available  from  networks, 
now  and  in  the  near  future?  One  important  applica- 
tion will  be  the  creation  of  an  electronic  banking 
system.  With  this  system,  you  will  be  able  to  make 
and  receive  payments  via  your  home  computer  ter- 
minal, which  would  be  the  main  computer  system  in 
your  bank  or  supermarket.  The  so-called  cashless 
society  will  become  a  reality. 

Another  important  aspect  of  networking  is  that 
you  will  have  access  to  vast  amounts  of  information 
instantly— everything  from  stock  market  quota- 
tions to  major  newswires  to  journal  and  encyc- 
lopedia articles.  You  will  also  be  able  to  exchange 
information,  programs,  and  other  forms  oielectronic 
mail  with  one  or  all  of  the  thousands  of  users  on  a 
typical  network.  The  aplications  of  networking  ser- 
vices for  personal  computer  users  is  in  its  em- 
bryonic stage,  and  many  new  applications  are  for- 
thcoming. 

Modems 

Modems  are  electronic  devices  that  allow 
communication  between  your  computer  and 
another  computer.  They  translate  the  electronic 
signals  from  a  computer  into  audio  tones  that  may 
be  sent  through  an  ordinary  phone  line  and  translate 
the  incoming  audio  signals  into  digital  signals.  The 
cost  for  a  modem  ranges  from  $50  to  over  $600 
depending  upon  its  capabilities,  but  most  personal 
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computer  users  can  find  a  modem  to  suit  their  needs 
for  under  $200. 

A  direct-connect  modem  patches  into  your 
phone  line  directly  and  is  the  simplest  to  use.  An 
acoustic-coupled  modem  which  cradles  an  ordinary 
telephone  handset,  is  often  less  reliable,  but  it  has 
the  advantage  of  being  usable  at  public  phones.  If 
you're  willing  to  spend  extra,  a  direct-connect 
modem  can  be  equipped  with  a  feature  that  will 
answer  the  telephone  automatically  and  can  dial 
numbers  stored  in  the  computer  and  then  initiate 
data  transmission;  these  features  are  called  auto- 
answer and  auto-dial. 

The  other  consideration  in  buying  a  modem  is 
the  speed  at  which  it  can  send  and  receive  data.  The 
normal  telephone  line  is  capable  of  sending  300  bits 
of  information  per  second,  or  300  baud.  This  rate  is 
most  commonly  used  by  computer  hobbyists,  al- 
though higher  speeds  of  data  transmission  can  be 
had  for  a  price. 

Terminal  Programs 

As  a  final  requirement,  you  must  write  or 


purchase  software  to  communicate  with  the  modem 
and  the  outside  world;  the  required  software  is 
commonly  cajled  a  terminal  or  communications  pro- 
gram. Modems  are  often  sold  with  these  communi- 
cation programs  as  a  package  designed  for  your 
brand  of  personal  computer.  This  software  will 
allow  you  to  send  messages  or  programs  to  the  main 
network  computer  and  display  or  store  incoming 
data.  Again,  a  wide  price  range  exists,  depending 
upon  the  capabilities  you  need;  these  factors  should 
be  reviewed  with  your  salesman  before  purchase. 

Available  Networks 

There  are  two  principle  networks  of  broad 
interest— CompuServe  and  The  Source.  Both  of 
these  services  offer  an  extensive  variety  of  infor- 
mation sources,  which  are  outlined  below: 

CompuServe 

5000  Arlington  Centre  Blvd. 
P.O.  Box  20212 
Columbus,  Ohio  43220 


COMPUSERVE  INFORMATION  SERVICE  SUBJECT  INDEX 


AAM8I  Medical  Forum 

AID  calculations 

AMEX  prices  (MQUOTE) 

ASCMD  9IQ 

A8I  Monitor 

AVSIQ 

Academic  American  Ency 

Access 

Accasa  phone  numbers 

Adult  education 

Adventure  game 

Advertisers,  TODAY 

Advertising: 

For  sale 

Notices 

TODAY  Magazine 

Want  ads 

Advertising,  classified: 

St.  Louis  Post-Dispatch 

Advice: 

Aunt  Nettie 

African  weather 

Agribusiness 

Agricultural  news 

Air  travel: 

Firstworld  Travel  Club 

Official  Airline  Guide 

Pan  Am 

Travel  Fax 

Air  travel  delays 

Aircraft 

Airline  guide 

Airport  delay  guide 

Amateur  Radio 

Analogies  test 

Annual  reports 

Apple,  programs  for 

Apple  User's  Group 

Appliances  for  sale 

Arcade  (SIG) 

Art  Gallery 

Articles,  computer 


Asian  weather 

Assoc.  Press  Access 

Assoc.  Viewdata  Wire 

Astrology  Game 

Astronautics 

Atari  Forum 

Athletic  equipment 

Athletics  Outfitter 

Atlas,  shopplrfg  service 

Attorneys 

Author'a  (SIG) 

Auto  Information: 

Gov't  publications 

Investors  Diversified 

Popular  Science 

AutoNet 

Autos,  buying: 

AutoNet 

St.  Louis  Post- Dispatch 

Aviation: 

AS  I  Monitor 

EMI  Flight  Planning 

NSW  Aviation  Weather 

Official  Airline  Guide 

Peak  Delay  Guide 

Aviation  Rules  &  Reg 

Aviation  Safety  Inst 

Aviation  (SIG) 

Aviation  weather 

Bacchus  Dsta  Services 

Banking,  electronic 

Banks: 

Central  Trade  Bank 

First  Tennessee  Bank 

Huntington  National  Bank 

Shawmut  Bank  of  Boston 

Banshl  gsme 

Baseball  (AP  wire) 

Basic  CompuServe 

Beef  prices 

Belmont  Golf  Association 

Belmont's  golf  (SIG) 


Billing,  general 

Billing,  reviewing 

Blorhythms 

Blackjack  game 

Bliss  language 

Book,  ordering: 

Fifth  Avenue  Shopper 

Howard  Sams  Books 

Book,  reviews: 

AAMSI,  medical  journals 

Rainbo's  Reviews 

Boston,  Shawmut  Bank 

Brldgs  game 

Brokerage 

Budgeting,  home: 

CompuServe 

Gov't  publication 

Bulletin  Board 

Business,  fsrmlng 

Business  Informstton  Win 

Buslnsss  nsws: 

AP  Viewdata  Wire: 

Business  Wire 

Canadian,  U.S.,  int'l 

CompuServe 

Middlesex  Daily 

St.  Louis  Post-Dispatch 

Washington  Post 

CB  Interest  Group 

CB  Radio  simulation: 

Access  to 

Instructions 

Introduction 

CB  Society 

CEMSIG 

CP/M  user's  group 

Cameras  for  sale 

Canadian: 

Business  news' 

Currency  exchange 

Stocks 

Canning,  home 


Car  care 

Cars,  comparison 

Cattle  prices 

Central  Trade  Bank 

Changing  password 

Changing  tarmlnal  type 

Chargea,  monthly 

Checking,  banking 

Child  care 

Children,  education 

Children's  games 

Cinema  news 

Clarke  School  for  Deaf 

Classified  Ads: 

St.  Louis  Post-Dispatch 

Clothing,  fashion 

Clothing,  sport 

Cocoa  news 

Coffee  news 

College  cost  program 

Color  computer  (SIG) 

Color  graphics 

Columbus  area: 

Banks 

Chamber  of  Commerce 

Education 

SIG 

Command  level 

Commentaries: 

Investment 

Video 

Commodities  calendar 

Commodities  future 

Commodities  glossary 

Commodity  News  Service: 

Agricultural  news 

Commodity  prices 

Economic  news 

Futures  industry  news 

Futures  market  prices 

General  news 

Metals  news 


Weather 

Commodore  newsletter 
Commodore  VIC  (SIG) 
Comm.  Industry  Forum 
CompuServe  command 
Comp*U-Store 
Computer,  books 
Computer  club  news: 
Computers  &  Electronics 
The  Micro  Advisor 
Computer  Magazine  Indei 
Computers  &  Electronics 
Concentrstlon  gams  .... 
Consumer  Items  for  sale 
Consumer  news: 
Software 

Continuing  education 
Cooking  (SIG) 
Corporate  news  releaee 
Copper  futures  prices 
Copper  news 
Cotton  futures  prices 
Cotton  news 
Court  esses,  aircraft 
Cross  Asssmblers 
Cruise  line 
Current  rates 
Database,  how  to  use 
Database  searches 
dataFamlliae 
Decwars  game 
Decwars  (SIG) 
DEFALTS,  setting 
Department  of  State 
Disk  area 

Document  delivery 
Document  retrieval 
Documentation  ordering 
Dress 
Drugs 

Drugs,  medicine 
EMI  Flight  Plans 
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Earnings  forecasts 
Economic  news 
Editorials: 
Washington  Post 
Education: 

Academic  Encyclopedia 
Clarke  School  for  Deaf 
The  College  Board 
The  Multiple  Choice 
Education,  family 
Educational  games: 
Super  Brain  Challenge 
Witty  Write-ins 
Educator's  (SIG) 
Electronic  banking 
Electronic  Bounce  Back 
Electronic  Heath  Catalog 
Electronic  mall 
Electronic  shopping 
Eliza  program 
EMAIL 

Emergencies,  auto 
Emergencies,  health 
Employee  benefits 
Encyclopedia 
Energy  conservation: 
Gov't  publication 
Popular  Science 
Energy  news 
Entertainment: 
AP  Viewdata  Wire 
CompuServe 
Hollywood  Hotline 
Environmental  Forum 
Equipment,  mining 
European  weather 
Executive,  terminal 
Expert,  music 
FAA  reports 
FAA  rule  changes 
FOI  Newsline 
Facts,  general 
Family  budget 
Family  life 

Family  Matters  Forum 
Fantasy  game 
Farming 
Fashions 

Federal  gov't  news: 
Associated  Press  News 
Washington  Post 
Federal  publications 
Fedwatch  newsletter 
Feedback,  CompuServe 
Fifth  Avenue  Shopper 
FILQE  Instructions 
Finance 

Financial  advice 
Financial  aid,  college 
Financial  forecasts 
Financial  Information 
Financial  Insurance 
Financial  news  (AP) 
Financial  news,  micros 
Financial  planning 
Financial  services 
Fire  Flghtera'  (SIQ) 
Fire  prevention 
Fireplaces,  firewood 
First  Aid 

First  Tennessee  Bank 
Flrstworld  Travel  Club 
Fltnesa 

Flight  operations 
Flight  plans 
Flowers,  ordering 
Focal 

Food  &  Drug  Admin 
Food  Buyllne  (SIG) 
Food  Information: 

FDA 

Food  storage 
For  fitness 
Freezing 
Menus 

Football  (AP  wire) 
Football  game 
For  Sale: 
Bulletin  Board 
Clothing,  sport 
Consumer  goods 
Fortran  (XF4) 


Funds  Management 

Fur  Trader  game     -j 

Futures  Industry  news 

Futures  prices 

Games,  computer: 

Adventure 

Astrology 

Backgammon 

Banshi 

Biorhythms 

Blackjack 

Bridge 

Chess 

Civil  War 

Concentration 

Decwars 

Dice 

Eliza 

Fantasy 

Fastermind 

Football 

Fur  Trader 

Golf 

Gomoku 

Hammurabi 

Hangman 

Kesmai 

Lunar  Lander 

Magic  Cube  solution 

Maze 

Megawars 

Mugwump 

New  Adventure 

Othello 

Real-Time  Star  Trek 

Roulette 

Scott  Adams 

Scramble 

Space  War 

Star  Trek 

Trivia  test 

Wumpus 

Games  (SIG) 

Gandolf's  Reports 

Gardening 

Gasoline,  saving 

General  banking 

Qodlva  chocolate 

Gold: 

Future  prices 

News 

Golf,  Belmont  Golf  Assn 

Golf,  Official  PGA  lour: 

Biographies 

Players 

Statistics 

Golf  (SIG) 

Gomoku  game 

Good  Earth  (SIG) 

Grain  prices 

Grains  futures 

Groller'e  Encyclopedia 

Ground  water 

Hammurabi  game 

HamNet  (SIG) 

Handelman'a  Athletic  Sup 

Handicapped,  deaf 

Hardware  reviews 

Health 

Health  and  fitness 

Health  Care 

Health  Resources 

Health-tor. 

Heath  Users'  Group 

Heathklt  Catalog 

Helnold  Commodities 

Help 

Help  (documentation) 

Hi-Tech  Forum 

Hockey  (AP  wire) 

Hollywood  Hotline 

Home  banking 

Home  finance 

Home  management  programs: 

Amortize  a  loan 

Calculate  a  raise 

Checkbook  balancer 

Net  worth 

Home  services 

Horticulture 

House  plants 

Howard  Sams  Books 


Humor,  satire 

Huntington,  bank 

Husbandry 

IBM-PC  (SIG) 

IOS 

IRA 

Immigration 

Index: 

AAMSI  journals 

CompuServe 

Computer  Periodical 

Stock  Market 

Industries,  farming 

Information,  music 

Information  on  Demand 

Information  Retrieval  Ser 

Insurance: 

Dental 

Disability 

Employee  Benefits 

Health 

Life 

Miscellaneous 

Insurance,  aircraft 

Intelligence  test 

Interest  rate 

Investment  news 

Investment  News  &  Views 

Investments: 

MicroQuote 

Investors  Diversified 

Job,  In  the  home 

Jobs: 

St.  Louis  Post-Dispatch 

Jumbled  words  test 

Kesmai 

Kltbulldlng 

LDOS  (SIG) 

Languages  on  CompuServe: 

Bliss 

Focal 

Fortran 

Macro 

Pascal 

Snobol 

Legal  Forum 

Legal  issues 

Library,  electronic 

Lfneprinter  art 

Liquid  Green 

Literary  (SIG) 

Livestock  futures 

Livestock  prices 

Lobby  Letters 

MMS  Financial  Analysis 

MNET-11 1  (SIG) 

Macro 

Magazine,  advertisers 

Magic  Cube  solution 

Mainstreamlng 

Maintenance  equip 

Manuals,  documentation 

Manufacturer's  newsletters: 

Commodore 

RCA 

Tandy 

Maps,  road  travel 

Marine  weather 

Market  prices 

Market  research 

Massachusetts,  banking 

Medical: 

AAMSI  Forum 

ASCMD  Forum 

FOI  Newsline 

Medical  newsletter 

Medical  Records 

Medicine,  consumer 

Metals  futures  prices 

Metals  prices 

Micro  Advisor,  The 

Microcomputers: 

Advice 

Financial  news 

General 

RCA 

Tandy 

What's  new  in 

MicroQuote 

Microsoft  (SIG) 

Middlesex  Daily  News 

Mine-Equip 


Money  market 

Money  supply 

Monthly  charges 

Mortgage  budgeting 

Movie  reviews: 

CompuServe 

Hollywood  Hotline 

Multiple  Choice,  the 

Music 

Music  Forum 

Music  Information  Service 

Musus-Pascal  (SIG) 

Mutual  Funds 

NASA 

NIPSIG 

NOAA  weather 

NTSB  cases  (aviation) 

NWS  aviation  (weather) 

NYSE  prices  (MQUOTE) 

Names  of  users 

National  Issues  (SIG) 

National  Water  Well  Assn 

Nstlonal  Weather  Service 

Netwits    . 

Netwlts  (SIG) 

New  product  news: 

Popular  Science 

The  Micro  Advisor 

New  services 

News,  CB 

Neweletters: 

AAMSI  Communications 

Commodore 

RCA 

Tandy 

Newspapers 

Node  locations 

North  Americsn  weather 

Norwegian  Am.  Cruises 

Notices  (Bullet) 

Nutritional  analysis 

OK  level 

OTC  drugs 

OTC  prices  (MQUOTE) 

Official  Airline  Guide 

Ohio,  banking 

Ohio  regional  news 

Ohio  Scientific  (SIG) 

Options,  stock 

Orch-90  music  (SIG) 

PGA  Official  Tour  Guide 

PUG  (Panasonic  SIG) 

Pan  Am 

Panasonic  (SIG) 

Parenting  &  Family  Life 

Pascal  (SIG) 

Password,  changes 

Peak  Delay  Guide 

Periodical  Guide 

Personal  computing 

Personal  finance: 

Gov't  publications 

Home  Management 

Investors  Diversified 

Personality  profile 

Pets 

Pilot  weather 

Plants 

Politics: 

AP  Viewdata  Wire 

Middlesex  Daily 

Washington  Post 

Popular  Science  Magazine: 

Automotive  News 

New  products 

Science  &  Technology 

Software  reviews 

Pork  prices 

Portfolio  valuation 

PowerSoft's  XTRA-BO 

Precious  metals 

Precious  metals  news 

Prescriptions 

Prime  interest  Rates 

Prlmetime  Radio  Classics 

Professional: 

Agribusiness  database 

Eng  Technical  database 

Environmental  database 

Programmer's  SIG 

Programming  area 

Programming  languages 


Programs  for  sale 

Programs  from  users 

Programs,  medical 

Public  access 

Quick  Quote 

RCA  Newsletter 

RCA  (SIG) 

Radio: 

Amateur 

Old  radio  shows 

Radio  Shack  computers 

Ralnbo's  Reviews 

Rates,  CompuServe 

Real  estate,  ads: 

St.  Louis  Post-Dispatch 

Recipes  (SIG) 

Recordkeeping,  home 

Reference  guide 

Referral  Service,  law 

Regulatory  Affairs  Prof 

Reservations,  airline: 

Firstworld  Travel 

Resource,  water 

Reviews,  hardware 

Reviews,  movie: 

CompuServe 

Reviews,  software: 

Popular  Science 

The  Micro  Advisor 

SAT  test  Information 

SIGS: 

AAMSI 

ASCMD 

AVSIG 

Arcade 

Atari 

Author's 

CBIG 

CEMSIG 

Commodore 

Commodore  Pet 

Commodore  64 

Commodore  VIC  20 

Communications 

Cooks'  Underground 

CP'M  Group 

Decwars 

Educators' 

Environmental 

Family  Matters 

FireNet 

Food  Buyline 

Games 

Golf 

Good  Earth 

HamNet 

Hi-Tech 

HUG  (Heath) 

IBM-PC 

LDOS  TRS-80 

Legal 

Literary 

MAUG  (Apple) 

Microsoft 

MNET-11 

MNET80  TRS-80 

Music 

Musus-Pascal 

Netwits 

NIPSIG 

Orch-90 

OSI 

PowerSoft's  XTRA-80 

Programmers 

PUG  (Panasonic) 

RCA  Group 

Space 

Sports 

Telecomm 

Travel 

TRS-80  color 

TRS-80  Model  100 

Veterinarians 

Work-at-Home 

St.  Louis  Post-Dispatch 

Sams,  Howard  Books 

Satire 

Saving  Accounts 

Scott  Adams'  games 

Scramble  game 

Securities: 

Information 
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Self-employment 

Self-Health 

Services  for  the  Deaf 

Shawmut,  bank 

Shop-at-home 

Shopping: 

Cars 

Musical 

Radio  Shows 

Shuttle,  space 

Silly  fill-ins 

Silver  futures  prices 

Silver  news 

Ski  conditions 

Smalt  business  reports 

Smoking  and  health 

Snobol 

SOFTEX 

Software  Authors'  SIG 

Software  Exchange 

Software  reviews: 

Popular  Science 

The  Micro  Advisor 

South  America  weather 

Space (SIG) 

Special  Interest  Groups: 

Access  to 

Commercial 

Descriptions  Of. 

General 

Hardware  related 

Instructions 

Software  related 

Sport,  clothes 

Sports  news: 

Golf 

St.  Louis  Post-Dispatch 

Scores  (AP) 


Sports  quiz 
Sports  (SIG) 
Spotlight,  CBers 
Standard  &  Poors 
Star  Trek  game 
State  capital  games 
Stereos  for  sale 
Stevens  Business  Reports 
Stocks,  bonds: 
MicroQuote 
Quick  Quote 
Sugar  futures  prices 
TMC  for  kids 
TRS-80  color  (SIG) 
TRS-80  computers 
TRS-flO,  MNET80  (SIG) 
TRS-80  Model  100  (SIG) 
TRS-80,  programs  for 
Tandy  Corp.  news 
Technical  books 
Technical  research 
TeieComm  (SIG) 
Telephone  access 
Tennessee,  banking 
Terminal  parameters 
Terminal  software 
Terminal  types 
Tests,  children 
Testa,  Interactive. 
Tests,  SAT 
Text  editors 
The  College  Board: 
Adult  education 
Choosing  a  college 
Financial  aid 
Publications  of 
SAT  test  information 
The  National  Satirist 


Time  used 
TODAY,  advertisers 
Trading,  commodities 
Travel: 

Department  of  State 

Firstworld  Travel  Club 

Norwegian  Am.  Cruises 

Official  Airline  Guide 

Pan  Am 

Travel  Fax 

TravelVision 

Worldwide  Exchanges 

Travel,  abroad: 

Department  of  State 

Firstworld  Travel  Club 

Norwegian  Am.  Cruises 

Official  Airline  Guide 

Pan  Am 

Travel  Fax 

Travel,  advisories 

Travel,  airline  guide 

Travel  Fax 

Travel  (SIG) 

Traveler,  airport  guide 

TravelVision 

Treasury  bills,  yields 

Trivia: 

Kids 

Movie 

Radio 

Unlimited  test 

UCSD  Pascal  Group 

USDA  Grades 

USDA  standards: 

Meat 

Poultry 

U.S.  Department  of  State 

U.S.  News: 


Middlesex  Daily 

St.  Louis  Post-Dispatch 

Washington  Post 

Used  cars,  buying  ' 

User  directory 

User  Information 

User's  programs 

VIC  20  (SIG): 

Vacationing 

Value  Line  Database 

Vegetables 

Veterinarians  Forum 

Victory  Garden 

Video  Information 

Videotex,  views  on 

VIDTEX  executive 

Viewpoint,  CompuServe 

Want  ads  (Bullet) 

War  games: 

Decwars 

Megawars 

Space  War 

Washington,  D.C.  area: 

Middlesex  Daily 

St.  Louis  Post-Dispatch 

Washington  Post 

Washington  Post 

Water,  ground 

WaterLlne 

Weather: 

AP  Viewdata  Wire 

African  weather 

Asian  weather 

Aviation  weather 

European  weather 

Extended  forecasts 

N.  American  weather 

S.  American  weather 


Sports  forecasts 

State  forecasts 

What's  New 

Wheat  prices 

Wine  guide 

Wire  service  news: 

(see  Associated  Press  Access) 

Word  processors 

Work-at-Home  (SIG) 

World  news: 

AP  Viewdata  Wire 

Associated  Press 

Washington  Post     t 

Worldwide  Exchanges 

Yachts 

Associated  Press  News  Access 

Financial  wire: 

Middlesex  Daily  News 

St.  Louis  Post-Dispatch 

Washington  Post 

Sports: 

Middlesex  Daily  News 

St.  Louis  Post-Dispatch 

Washington  Post 

U.S.  News: 

Middlesex  Daily  News 

St.  Louis  Post-Dispatch 

Washington  Post 

Washington  News: 

Middlesex  Daily  News 

St.  Louis  Post-Dispatch 

Washington  Post 

World  News: 

Middlesex  Daily  News 

St.  Louis  Post-Dispatch 

Washington  Post 


THE  SOURCE 

Source  Telecomputing  Corporation 
The  Reader's  Digest  Association,  Inc. 
1616  Anderson  Road 
McLean,  Virginia  22102 


(800)  336-3366 

(800)  572-2070  (in  Virginia) 

(703)  734-7500  (outside  the  U.S.) 

Abbreviated  listing 


ADVANCED  APPLICATIONS  &  PROGRAMS 

ADVICE  COLUMN 

A1RSCHEDULES 

Domestic 
International 
Inter-City 
ASTROLOGY  LIBRARY 
AWARE  FINANCIAL  SERVICE  GLOSSARY 
BARTER-TRADE  NETWORK 
BUSINESS  &  FINANCE 

Analysis  Programming 

Annuities  Analysis. 

Aware  Financial  Service 

Spreadsheet 
PURCHASE  VS.  PRODUCTION  COMPARISON 
BUSINESS  PROGRAMS 

Complete  Listing 

Amortization  of  Loans 

Amortization  of  Loan  UNK  Term 

Annuity  Debt  Payment 

Balancing  Checkbook 

Capital.  Cost  of  Equity 

Cashflow.  Present  Value 

Commission.  Sales  Report 

Depreciation  Schedule 

Equipment.  Lease  vs.  Purchase 

Equity  Capital.  Cost  of 

Inter- Industry  Flow. of  Goods  &  Services 

Interest.  Bonds 

Interest,  Loans 

Sales  Commission  Report 
CALCULATOR 
CAREER  NETWORK 
CLASSIFIED  ADS 

COMMODORE  BUSINESS  MACHINES 
COMMUNICATIONS 
CHAT 

Chat  (live  conversation  with  other  subscribers) 
TELECONFERENCING 
SOURCEMAIL 

To  Check  Mailbox 

To  Read  Letters 

To  Scan  Correspondence 


To  Send  a  Letter 
General  Information 
Commands  in  Mail 
Cross- Referenced  Names 
Operation  pf  SourceMail 
Timed-Mail  Delivery 
ToSendaMAILGRAM 
MISCELLANEOUS  COMMUNICATION  SERVICES 
Contents  of  THE  SOURCE 
Personal  Appointment  Schedule 
THE  SOURCE  Announcements 
THE  SOURCE  Toll  Charges 
Suggestions  for  THE  SOURCE 
Subscribers  Currently  On-Line 
TYMNET/TELENET  Access  Numbers 
Subscriber  Directory  Services 
The  Common-Interest  Directory 

To  Add  Your  Name  and  Number 
CONSUMER  INFORMATION 
DINING  OUT;  WASHINGTON.  D.C 
NEW  YORK  CITY 
CONTINENTAL  U.S.  &  CANADA 
DISCOUNT  SHOPPING  SERVICE  (COMP-U-STORE) . 

Instructions 

Overview 

Bargains  [the  monthly  listing) 

Auction 

Product  and  Manufacturer  List 

Begin  Shopping 
Covering  the  following  product  categories. 

Appliances  Fine  China  Sterling 

Cameras  Furniture  Televisions 

Cars  Pianos  and  Organs  Video  Recorders 

Crystal  Specialty  Items  Watches 

Figurines  Stereo  &  Audio 

EDUCATION 

ENERGY  SAVING  NEWS  &  TIPS 
FINANCIAL  MARKETS 
UNISTOX  REPORT  INDEXES 

Alphabetically 

By  Time 


Dividends,  Earnings 

Earnings  Reports 

Exchange  Rate 

Federal  Land  Bank  Bonds 

Futures.  Treasury  Bills 

Futures  &  Options 

Glossary  of  Stock  Investment  Terms 

Indexes.  Stock  Market  Daily  Avgs 

Moody's  Index 

Standard  &  Poors  Index 
AMERICAN  STOCK  EXCHANGE 

Bonds 

Closings  (All  Stock  Exchangesi 

Ten  Most  Active 

Weekly  Composite  Prices 

Weekend  Bond  Prices 
BONDS 

AMEX  Daily  Listing 

Bond  Yield  Computations 

Bond  Price.  Accrued  Interest 
Computations 

Federal  Land  Bank,  Daily 

NYSE  Daily  Listing 

Treasury  OTC,  Daily 

World  Bank.  OTC.  Daily 

Treasury  OTC.  Weekend 

Weekend  Listings 

Commodities 
METALS 

Metals  News 

Gold  News 

Gold  Spot  Prices 

NY/Chicago  Mkt  Prices 

NY/London  Mkt  Prices 

Platinum 

Silver  Coins 
Silver  Prices 
Silver  News 
MONEY  MARKET  NEWS  AND  COMMENTS 
Afternoon  Lead 
Futures 
Markets  at  a  Glance 
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Night  Lead 
Noon  Lead 
NYSE  Trends 
Opening  Lead 
Stock  Pulse 
What  the  Market  Did 
FINANCIAL  MODELING 

FOR  BUSINESS  PLANNING 
FINANCIAL  NEWS 
GAMES 

Adventure 
Backgammon 
Blackdragon 
Cards 

Blackjack 

Super  Blackjack 

Bridge 

Poker 

Tricks . 
Checkers 
Chess 

Children's  Programs 
Civil  War 
Craps 
Draw 
Farmer 
Fill  in  Letters 
Football 
Golf 

Govern  Sumeria 
Guess  Computer's  Number 
Hangman 
Horse  Race 
l-Ching 
IQ  Test 
Life 

Lunar  Landing 
Market  A  Product 
Mastermind 
Maze  Generation 
Mind  Reading 
NIM 

Patrol  Streets  (game) 
Poster 
Puzzles 
Rule  Sumeria 


Score  Four 

MOVIE  REVIEWS  BY  JAY  A.  BROWN 

Sinners 

NEWS 

Slalom 

PERSONAL  CALENDAR  &  NOTEBOOK 

Slot  Machine 

PERSONAL  FINANCE 

Sonnets 

POLITICAL  ACTION  REPORT 

Statistics 

PORTFOLIO  MANAGEMENT 

Star-Trek 

PROFESSIONAL  BOOK  CENTER 

Super  Adventure 

PUBLISHERS  WEEKLY 

Target  Practice 

BESTSELLERS  LIST 

Tic  Tac  Toe 

RADIO  PROGRAMS  TO  ORDER 
RAYLUX  FINANCIAL  SERVICES 

Toro 

SCIENCE  &  ENGINEERING 

Tricks 

SELF-PERCEPTION 

Vegas 

SMITHSONIAN  EXHIBITS 

Wumpus  Hunt 

AND  TOURING  EXHIBITS 

INFORMATION  ON  DEMAND 

SPECIAL  APPLICATIONS 

INFORMATION  ON  UPDATES  TO  THE  SOURC 

STUDENT  AID     . 

MANAGEMENT  CONTENTS 

TAXES 

Overview 

Assets 

Instructions 

Calculation  of  Income  Statement 

The  List  of  Journals 

Computing  Taxes 

On  the  following  Jot   nals: 

Contributions 

Across  the  Board 

INC 

Credits 

Administrative  Management 

Institutional  Investor 

Debts 

American  Demographics 

Journal  of  Retailing 

■  Deductions 

The  Banker 

Medical  Economics 

Dependents 

Business  and  Society  Review 

Mergers  &  Acquisitions 

Depreciation  Schedule 

BusinessWeek 

Monthly  Labor  Review 

Donations 

Cash  Flow  Magazine 

Office.  The 

Expenses 

Duns  Review 

Practical  Accountant 

Income  Statement,  Pro  Forms 

Federal  Reserve  Bulletin 

Sloan  Management  Review 

Incorne  Tax 

Financial  Executive 

Taxes 

Forbes 

Venture 

TRAVEL  CLUB 

Fortune 

Vital  Speeches 

UNISTOX 

Futurist 

Wharton  Magazine 

UNITED  PRESS 

Harvard  Business  Review 

INTERNATIONAL  (UPI) 

MEDIA  GENERAL  STOCK  ANALYSES 

USER  PUBLISHING 

Overview 

VOICEGRAM 

Instructions 

WEATHER 

Categories  of  Stock  Comparison 

WINE 

Definitions  of  Data  Items 

WISDOM  OF  THE  AGES 

Industry  Groups  Numbers  List 

Creating  Portfolio  Files 

"Stock  Analysis  and  Tables" 

MEDICAL  ADVICE 

MENU  TO  MANY  DATA  BASES  ON  THE  SOURCE 

Local  networks.  A  comprehensive  listing  of 
local  networks  or  "bulletin  board  systems"  (BBS), 
the  computer  era's  answer  to  old-fashioned 
corkboards,  for  personal  computerists  follows.  To 
post  a  notice,  you  dial  the  service  and  add  your 
message  to  a  list  of  notices  that  will  appear  on  your 
screen.  If  any  message  interests  you,  you  can 
reply— on  your  computer,  of  course.  Usually,  your 
only  cost  is  the  phone  charges. 

The  codes  printed  next  to  each  BBS  phone 
number  are  explained  here: 

*24    denotes  24-hour 

operation 
#1     denotes  original  system 

of  that  type 
-rb   denotes  call,  let  ring 

once  and  call  back 
—so   sexually  oriented 

messages 
-rl    religious  orientation 
!         new  system  or  new  number 

for  existing  system 


1        Supports  VADIC  1200  baud 

operation 
&       Supports  212A  1200  baud 

operation 


Start  dialing  and  explore! 

ABBS  Apple-Mate,  New  York,  NY (201)  864-5345 

ABBS  CCNJ,  Pompton  Plains,  NJ (201)  835-7228 

ABBS  Livingston,  NJ (201)  994-9620*24 

A-C-C-E-S-S  Wyckoff,  NJ (201)  891-7441*24 

Aphrodite-E (201)  790-5910-so 

CONFERENCE-TREE  ?,  Flagship,  Denville,  NJ   (201)627-5151*24 

D1AL-YOUR-MATCH  #14 (201)  272-3686-SO 

FORUM-80  Linden,  NJ (201)  486-2956*24 

FORUM-80  Monmouth,  Brielle,  NJ  (201)528-6623*24 

New  Jersey  TELECOM #1(201)635-0705*24 

PHOTO-80,  Haledon,  NJ (201)  790-6795 

PMS  -  Rutgers  Univ.  Microlab,  Piscataway,  NJ (201)932-3887 

PMS  -  Shrewsbury,  NJ (201)  747-6768 

RATS  ?,  NJ  #1 #1(201)  887-8874 

RCP/M  MCBBS  Ken  Stritzel,  Flanders,  NJ  (201)  584-9227*24 

RCP/M  RBBA  Cranford,  NJ (201)  272-1874 

RCP/M  RBBA  Ocean,  NJ &(201)  775-8705 

RCP/M  RBBS  Paul  Bogdanovich,  NJ  (201)  747-7301 

PCP/M  RBBT  New  Brunswick,  NJ ■. .  .(201)  932-3879*24 

ARMUDIC  Washington,  DC #1(202)  276-8342 

PSBBS  Washington,  DC .(202)  337-4694*24 

BULLET-80  Danbury,  CT #1(203)  744-4644 

BULLET-80  Seymour,  CT (203)  888-7952 

Telcom  7  New  Fairfield,  CT (203)  746-5763*24 

FORUM-80  Montgomery,  AL (205)  272-5069 

RCP/M  RBBA  Huntsville,  AL (205)  895-6749-rb 

ABBS  Apple  Crate  I,  Seattle,  WA (206)  935-9119 

A-C-C-E-S-S  Olympia,  WA (206)  866-9043*24 

Dial-Your-Match  #16 (206)  256-6624-so 

FORUM-80  Seattle,  WA (206)  723  3282 

JCTS  Redmond,  WA (206)  883-0403*24 
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MSG-80  Everett,  WA : (206)  334-7394 

Mail  Board-82  Seattle,  WA (206)  527-0897*24 

Mini-Bin  Seattle,  WA (206)  762-5141*24 

PMS  -  Software  Unltd,  Kenmore,  WA  (206)  486-2368*24 

RCP/M  RBBS  Yelm,  WA (206)  458-3086-rb 

Seacomm-80  Seattle,  WA (206)  763-8879*24 

DIAL-YOUR-MATCH  #26,  Clovis,  CA   (209)  298-1328-SO 

ABBS  (?)  Queens,  NY  (212)  896-0519 

Bronx  BBS,  NY (212)  933-9459 

BULLET-80  New  York,  NY (212)  740-5680*24 

COMM-80  Queens,  NY (212)  897-3392*24 

CONNECTION-80  Woodhaven,  NY (212)  441-3755*24 

Leigh's  Computer  World,  NY,  NY (7PM) 1(212)  879-6257 

NET-WORKS  New  York,  NY (212)  410-0949 

Nybbles-80  NY (212)  626-0375 

Pat- 100  System  New  York,  NY (212)  991-1664*24 

•PEOPLE-LINK*  #11(212)  877-7703*24 

PMS-  McGraw-Hill  Books,  New  York,  NY (212)  997-2488 

STUART-200  BBA  Howard  Beach,  NY .(212)  835-5962*24 

TCBBS  AstroCom,  New  York,  NY #11(212)  799-4649 

TCBBS  B.A.M.S.  New  York,  NY (212)  362-1040*24 

TCBBS  Leigh's  Computer  World,  NY (212)  897-7698 

VTUGS  NY,  NY  (VIC-20) «1(212)  534-3149*24 

All  Night  BBS .'.  .(213)  564-7636 

ABBs  Computer  Conspiracy,  Santa  Monica,  CA  (213)  829-1140 

ABBS  Pacific  Palasades,  Los  Angeles,  CA (213)  459-6400 

BBS  B.R.,  Los  Angeles,  CA (213)394-5950*24 

Computer  Connection (213)  657-1799 

CONFERENCE-TREE  #4,  Santa  Monica,  CA (213)  394  1505 

CONFERENCE-TREE  Kelp  Bed,  Los  Angeles,  CA (213)  372-4800 

Datamate,  Conoga  Park,  CA #1(213)  998-7992-so 

DIAL-YOUR-MATCH  #1 (213)  842-3322-so 

DIAL-YOUR-MATCH  #11 (213)  242-1882-so 

DIAL-YOUR-MATCH  #22 ... . (213)  990-6830-so 

DIAL-YOUR-MATCH  #4 (213)  783-2305-so 

DIAL-YOUR-MATCH  #9 (213)  345-1047-so 

Dragons  Game  System  (pass-DRAGON) (213)  428-S206 

Electric  Line  Connection,  Sherman  Oaks,  CA (213)  789-9512 

Greene  Machine  Fricaseed  Chicken,  Arcadia,  CA (213)  445-3591*24 

Greene  Machine,  Los  Alamitos,  CA 1(213)  431-1443 

Greene  Machine,  Temple  City,  CA  1(213)  287-1363 

Kluge  Computer $&(213)  947-8128*24 

L.A.  Interchange,  Los  Angeles,  CA (213)  631-3186*24 

Long  Beach  Community  Computer (213)  591-7239*24 

NET-WORKS  Coin  Games,  Los  Angeles,  CA (213)  336-5535 

NET -WORKS  Computer  World,  Los  Angeles,  CA (213)  859-0894*24 

NET-WORKS  Softworx,  West  Los  Angeles,  CA (213)  473-2754 

Novation  CO.,  Los  Angeles,  CA [pass-CAT] (213)  881-6880 

Oracle  North  Hollywood,  CA  (213)  980-5643-so 

PASBBS  Torrance,  CA : #1(213)  516  708 

PMS  -  Los  Angeles,  C  A (213)  334-7614*24 

PMS  -  O.A.C.,  Woodland  Hills,  CA (213)  1849*24 

RCP/M  CBBS  Pasadena,  CA  (213)  799-1632*24 

RCP/M  RBBA  BBA  Valley  1(213)  360-5053 

RCP/M  RBBA  GRRN  Dta  Exch.  Palos  Verdes,  CA. $&(213)  541-2S03*24 

RCP/M  RBBS  Sofwaire  Store,  Los  Angeles,  CA (213)  296-5927*24 

ABBS  Dallas  Info  Board (214)  248-4539 

ABBS  Teledunjon  II,  Dallas,  TX (214)530-0858 

ABBS  Teledunjon  III,  Dallas,  TX (214)  960-7654 

ABBS  The  Moon,  Dallas,  TX (214)  931-3437*24 

BBS-80  DALTRUB,  Dallas,  TX (214)  235-8784*24 

BULLET-80  Hawkins,  TX .(214)  769-3036 

NET-WORKS  Apple  Grove,  Dallas,  TX  (214)  644  5197 

NET-WORKS  Apple  Shack,  Dallas,  TX (214)  644  4781*24 

NET-WORKS  Eclectic  Computer,  Dallas,  TX  (214)  239  5842 

NET-WORKS  Hacker-net,  Dallas,  TX • (214)  824  7160 

NET-WORKS  Winesap,  Dallas,  TX  (214)  824  7455 

RCP/M  CBBS  Dallas,  TX   (214)  931-8274 

BULLET-80  Langhorne,  PA .(215)  364-2180 

COMNET-80  North  Wales,  PA (215)  855-3809 

Hermes-80  Allentown,  PA  (215)  434-3998 

Lehigh  Press  BB,  PA #1(215)  435-3388 

RCP/M  RBBA  Allentown,  PA  :  .(215)  398-3937*24 

ABBS  Akron  Digital  Group,  Akron,  OH (216)  745-7855*24 

BBS  Computer  Applications  Co.,  Poland,  OH (216)757-3711 

BULLET-80  Chesterland,  OH  (216)  729-2769 

COMNET-80  Akron,  OH &(216)  645-0827*24 

FORUM-80  Cleveland,  OH &(216)  486-4176 

INFOEX-80  Akron,  OH 1(216)  724-2125*24 

PMS  -  Massillon,  OH (216)  832-8392*24 

PMS  -  RAUG,  Akron,  OH (216)  867-7463*24 

BULLET-80  Springfield,  IL (217)  529-1113 

NET-WORKS  C.A.M.S.,  Decatur,  IL (217)  429-5541 

A-C-C-E-S-S  Annapolis,  MD (301)  267-7666*24 

ABBS  Computer  Crossroads,  Columbia,  MD (301)  730-0922 

ARMUDIC  Computer  Age,  Baltimore,  MD (301)  587-2132 

BBS  IBM  PC  Beltsville,  MD 1(301)  937-4339*24 

BBS  IBM  PC  Bethesda,  MD 1(301)  460-0538*24 


BBS  IBM  PC  Gaithersburg,  MD 1(301)  251-6293*24 

BBS  IBM  PC  Rockbille,  MD 1(301)  949-8848*24 

CBBS  CPEUG/ICST  Gaithersburg,  MD (301)  948-5717 

CONNECTION-80  Gaithersburg,  MD (301)  840-8588*24 

HEX  Silver  Spring,  MD %(301)  593-7033*24 

NET-WORKS  COMM  Center,  Laurel,  MD (301)  953-3341 

PMS  -  Baltimore,  MD  (301)  764-1995*24 

PMS  -  Ellicott  City,  MD (301)  465-3176 

PMS  -  Pikesville,  MD (301)  653-3413 

PSBBS  Baltimore,  MD ....(301)  994-0399*24 

RCP/M  RBBA  Bethesda,  MD (301)  229-3196 

RCP/M  RBBA  Laurel,  MD (301)  953-3753*24 

Remote  Northstar  NASA,  Greenbelt,  MD (301)  344-9156 

ABBS  Denver,  CO (303)  759-2625 

BBA  IBM  PC  Denver,  CO 1(303)  773-2699*24 

CONNECTION-80  Denver,  CO (303)  690-4566*24 

FORUM-80  #2,  Denver,  CO   (303)  399-8858*24 

HBBS  Denver,  CO (303)  343-8401*24 

RCP/M  CUG-NOTE,  Denver,  CO (303)  781-4937*24 

RCP/M  RBBS  Arvada  Elect.,  Colorado  Springs,  CO (303)  634-1158,24 

RCP/M  RBBS  Boulder,  CO (303)  499-9169 

Remote  Northstar  Denver,  CO (303)  444-7231 

NET-WORKS  Charleston,  WV (304)  345-8280 

ABBS  Byte  Shop,  Ft.  Lauderdale,  FL (305)  486-2983 

ABBT  Byte  Shop,  Miami,  FL  (305)  261-3639 

ABBS  West  Palm  Beach,  FL (305)  648-3602 

AMIS  APOGEE  Miami,  FL (305)  238-1231-rb 

BBS  Homestead,  FL (305)  246-1111 

CONNECTION-80  Orlando  FL (305)  644-8327*24 

CONNECTION-80  Winter  Garden,  FL (305)  894-1886*24 

FORUM-80  Ft.  Lauderdale,  FL (305)  772-4444*24 

Greene  Machine  Corsair,  WPB,  FL 1(305)  968-8653 

Greene  Machine,  WPB,  FL (305)  965-4388-so 

INFOEX-80  West  Palm  Beach,  FL (305)  683-6044*24 

MOUSE-NET  Orlando,  FL (305)  277-0473*24 

Micro-80  West  Palm  Beach,  FL (305)  686-3695 

NET-WORKS  Big  Apple,  Miami,  FL (305)948-8000 

Personal  Msg.  System-80  Deerfield  Bch,  FL  &(305)  427-6300*24 

TRADE-80  Ft.  Lauderdale,  FL #1(305)  525-1192 

PET  BBS  SE  Wyoming  PUG (307)  637-6045*24 

ABBS  Peoria,  IL (309)  692-6502 

NET-WORKS  MAGIE,  Galesburgh,  IL (309)  342-7178 

RCP/M  Geneseo,  IL (309)  944-5455 

ABBS  CODE,  Glen  Ellny  IL (312)  537-7063*24 

ABBS  Gamemaster,  Chicago,  IL (312)  475-4884*24 

ABBS  Illini  Microcomputer,  Naperville,  IL (312)  420-7995 

ABBS  Rogers  Park,  Chicago,  II (312)  973-2227 

AMIS  Chicago,  IL (312)  789-3610*24 

ANESSY  Chicago,  IL +1(312)  773-3308 

BBS  IBM  PC  Modem  Chicago,  IL 1(312)  259-8086*24 

CBBS  Chicago,  IL #1(312)  545-8086*24 

MCMS  C.A.M.S.  Chicago,  IL »1&(312)  927-1020*24 

MCMS  L.A.M.S.  Round  Lake,  IL ..(312)  740-9128 

MCMS  Metro  West  Database,  Chicago,  IL  &(312)  260-0640*24 

MCMS  P.C.M.A.  Wheaton,  IL !&(312)  462-7560*24 

MCMS  WACO  Hot  Line,  Schaumburg,  IL [pvtl (312)4374*24 

NET-WORKS  Chipmunk,  Hinsdale,  IL (312)  323-3741*24 

NET-WORKS  North  Parks,  Chicago,  IL (312)  745-0924 

NET-WORKS  Pirate's  Ship,  Chicago,  IL (312)  935-2933*24 

PBBA  Co-operative  Comp  Svc,  Palatine,  IL (312)  359-9450*24 

PET  BBA  Commodore,  Chicago,  IL .(312)  397-0871*24 

PMS  -  Chicago,  IL (312)  373  8057*24 

PMS  -  Downers  Grove/SRT,  Downers  Grove,  IL  (312)  964-6513 

PMS  -  I.A.C.,  Lake  Forest,  IL (312)  295-6926*24 

RATS  Homewood,  IL (312)  957-3924 

RCP/M  A.B.  Dick  Co.,  Niles,  II &(312)  647-7636*24 

RCP/M  AIMS  Hinsdale,  IL (312)  789-0499*24 

RCP/M  IBM  PC,  Niles,  IL (312)  259-8086 

RCP/M  Logan  Square,  Chicago,  IL.. .(312)  252-2136 

RCP/M  NEI,  Chicago;  IL (312)949-6189 

RCP/M  Palatine,  IL &(312)  359-8080*24 

Scream  Machine (312)  680-9613-so 

ABBS  Detroit,  MI (313)  477-4471 

ABBS  Michigan  Apple-Fone,  Southfield,  MI  (313)357-1422 

AMIS  A.R.C.A.D.E.  Sterling  Heights,  MI (313)  978-8087*24 

AMIS  M.A.C.E.  Detroit,  MI #1(313)  868-2064*24 

Apple-Gram )313)  295-0783*24 

BBS  Metro  Detroit,  MI !(313)  455-4227-so 

BULLET-80  Waterford,  MI (313)  683-5076*24 

COMNET-80  Mt.  Clemens,  Ml &(313)  465-9531 

Davy  Jones  Locket (313)  764-1837 

RCP/M  Detroit,  MI (313)  584-1044-rb 

RCP/M  MCBBS  Keith  Petersen,  Royal  Oak,  Ml .(313)  759-6569-rb 

RCP/M  MCBBS  TCBBS  Dearborn,  Ml (313)  846-6127*24 

RCP/M  RBBS  Pontiac,  MI (313)  338-85?5 

RCP/M  RBBS  Southfield,  MI  . . : (313)  559-5326*24 

.RCP/M  RBBS  Westland,  Ml (313)  729-1905-rb 

Treasure  Island (313)  547-7903 
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Twilight  Phone (313)775-1649*24 

Westside  Download,  Detroit,  MI , (313)  533-0254 

ABBS  Century  Next  Computers,  St.  Louis,  MO  (314)  442-6502 

ABBS  St.  Louis,  MO .(314)  838-7784*24 

Midwest,  St.  Louis,  MO (314)  227-4312-SO 

NET-WORKS  Computer  Station,  St.  Louis,  MO (314)  432-7120 

PET  BBS  Commodore  Comrn.,  Lake  St.  Louis,  MO  (314)  625-4576*24 

Greene  Machine,  Rome,  NY 1(315)  337-7720 

FORUM-80  Wichita,  KA &(316)  682-2113*24 

NET-WORKS  Greenfield,  IN (317)  326-3833*24 

ONLINE  Indianapolis,  IN.  [IDU-GUES,  pswd-pass] (317)  787-9881*24 

PET  BBA  AVC  Comline,  Indianapolis,  IN i (317)  255-5435*24 

PMS  -  Indianapolis,  IN (317)787-5486*24 

FORUM-80  Shreveport,  LA (318)  631-7107*24 

ABBS  Apple-Med,  Iowa  City,  IA . . . '. (319)  353-6528 

CBBS  Cedar  Rapids,  IA (319)  364-0811 

NET-WORKS  Computer  City,  Providence,  RI  (401)  331-8450*24 

ABBS  Omaha,  NE (402)  339-7809 

DIAL-YOUR-MATCH  »23,  Omaha,  NE (402)  571-8942-so 

TRADE-80  Omaha,  NE .(402)  292-6184 

Lethbridge  Gaming  system,  Lethbridge,  Alta  (403)  320-6923 

RCP/M  RBBS  Computron,  Edmonton,  Alta.,  Canada (403)  482-6854*24 

RCP/M  RBBS  Edmonton,  Alberta,  Canada &(403)  454-6093*24 

ABBS  «X,  Atlanta,  GA (404)  256-1549 

ABBS  AGS,  Atlanta,  GA (404)  733-3461*24 

ABBS  Baileys  Computer  Store,  Augusta,  G  A  . . (404)  790-8614 

BBS  IBM  Hostcomm  Atlanta,  GA !(404)  252,4146 

BBS  IBM  PC  Atlanta,  GA K404)  252-9438*24 

BBS  IBM  PC  Atlanta,  GA 1(404)  294-6879 

BULLET-80  Fayetteville,  GA (404)  461-9686 

CBBS  Atlanta,  GA  (404)  394-4220*24 

Remote  Northstar  Atlanta,  GA *1(404)  926-4318*24 

Telemassage-80,  Altanta,  GA (404)  962-0616 

HBBS  Oklahoma  City,  OK (405)  848-9329*24 

BBS  IBM  PC  Billing,  MT (406)  656-9624 

AMIS  GRAFEX  Cupertino,  CA (408)  253-5216 

AMIS  IBBBS  San  Jose,  CA (408)  298-6930 

AMIS  T.A.B.B.S.,  Sunnyvale,  CA (408)  942-6975 

BULLET-80  San  Jose,  CA (408)  241-0769 

NET-WORKS  Computer  Emprium,  San  Jose,  CA (408)  227^0227 

PMS  -  Campbell,  CA (408)  370-0873*24 

PMS  -  Santa  Cruz,  Aptos,  CA (408)  688-9629*24 

RCP/M  Collossal  Oxgate,  San  Jose,  CA (408)  263-2588 

RCP/M  RBBS  DataTech  004,  Sunnyvale,  CA (408)  732-2433 

RCP/M  RBBS  San  Jose  Exgate,  San  Jose,  C  A (408)  287-5901*24 

RCP/M  Silicon  Valley,  CA (408)246-5014*24 

?  (Western  Massachusetts) (413)  637-3515 

CBBS  PACC,  Pittsburgh,  PA (412)  822-7176*24 

ABBS  Colortron  Computer,  WI (414)  637-9990*24 

Big  Top  Games  System,  Milwaukee,  WI (414)  259-9475 

CBBS  MAUDE  Milwaukee,  WI (414)241-8364*24 

RCP/M  RBBS  Mike's,  Milwaukee,  WI !(414)  647-0903 

TBBS  Canopus,  Milwaukee,  WI !(414)  281-0545*24 

Vanmil,  Milwaukee,  WI !(414)  271-7580*24 

ABBS  Computerland,  Fremont,  CA (415)  794-9314 

ABBS  Hayward,  CA (415)  881-5662 

ABBS  PCnet,  San  Francisco,  CA (415)863-4703*24 

ABBS  South  of  Market,  San  Francisco,  CA (415)  469-8111-so 

BBS  Living  Videotex!,  Menlo  Park,  CA (415)  327-8876*24 

Blue  BOSS  IBM  PC,  Berkeley,  CA (415)  845-9462*24 

CBBS  Lambda,  Berkeley,  CA (415)  658-2919-so 

CBBS  Promima,  Berkeley,  CA (415)  357-1130 

CONFERENCE-TREE  »3,  Hayward,  CA  (415)  538-3580 

CONNECTION-80  Fremont,  CA (415)  651-4147*24 

DIAL-YOUR-MATCH  »17 (415)  991-4911 

Drummer (415)  552-7671 -so 

PMS  -  Pleasanton,  CA (415)  462-7419*24 

PMS  -  Portola  Valley,  CA (415)  851-3453*24 

RCP/M  RBBS  DataTech  001,  San  Carlos,  CA »1$&(415)  595-0541*24 

RCP/M  RBBS  DataTech  006,  San  Francisco,  CA (415)  563-4953 

RCP/M  RBBS  Larkspur,  CA (415)  461-7726*24 

RCP/M  RBBS  Marin  County,  CA (415)  383-0473*24 

RCP/M  RBBS  Piconet  Oxgate,  Mountain  View,  CA. (415)  965-4097*24 

Sunrise  System  Oakland,  CA (415)  452-0350 

System/80  San  Leandro,  CA (415)  895-0699 

BBS  IBM  Hostcomm  Toronto,  Ontario,  CA !(416)  499-7023*24 

BBS  NET  Toronto,  Ontario,  CN (416)  445-6696*24 

KPri,  Toronto,  Ont,  CN »1(416)  624-5431*24 

PET  BBS  TPUG,  Toronto,  Ontario,  CN (416)  223-2625*24 

RPC/M  H  APN  Hamilton,  Ontario,  CN (416)  335-6620*24 

RCP/M  Mississauga  HUG,  Toronto,  Ont.,  CN $&(416)  826-5394*24 

ABBS  ABACUS  II,  Toledo,  OH (419)  865-1594 

ABBS  Computer  Store,  Toledo,  OH (419)  531-3845 

CONNECTION-80  Little  Rock,  AS (501)  372-0576 

PMS  -  Ft.  Smith  Comp.  Club,  Ft.  Smith,  AK (501)  646-0197 

CBBS  NW,  Portland,  OR (503)  646-5510*24 

OARCS  Portland,  Oregon (503)  641-2798 

FORUM-80  Medford,  OR (503)  535  6883*24 


PMS  -  Computer  Solutions,  Eugene,  OR (593)  689-2655*24 

PMS  -  Portland,  OR !(503)  245-2536 

ABBS  Baton  Rouge,  LA .(504)  291-1360 

CBBS  Baton  Rouge,  LA (504)  273-3116*24 

NET-WORKS  Crescent  City,  Baton  Rouge,  LA (504)  454-6688 

Baton  Rouge  Data  System,  Baton  Rouge,  LA (504)  926-0181 

ABBS  Electro-Mart,  Spokane,  WA (509)  534-2419*24 

ABBS  Rob  Roy  Computer,  Yakima,  WA (509)  575-7704 

CBBS  Corpus  Christi,  TX (512)  855-1512 

CONFERENCE-TREE  Victoria,  TX (512)  578-5833 

FORUM-80  San  Antonio,  TX 1(512)655-8143 

NET-WORKS  Sparklin'  City,  Corpus  Christi,  TX (512)  882-6569 

Bathroom  Wall  BBS,  San  Antonio,  TX (512)  655-8143 

SATUG  BBS,  San  Antonio,  TX (512)  494-0285 

XBBS  Hamilton,  OH (513)  863-7681*24 

NET-WORKS  Dayton,  OH (513)  223-3672 

PMS  -  Cincinnati,  OH (513)  671-2753 

CONNECTION-80  Laval  BELE,  Laval,  Quebec,  CN .(514)  622-1274*24 

ONLINE  Computerland,  Montreal,  Quebec,  CN (514)  931-0458*24 

NET-WORKS  Computer  Emporium,  Des  Moines,  IA .(515)  279-8863 

ABBS  Pirates  Cove,  Long  Island,  NY (516)  698-4008 

CBBS  LICA  LIMBS,  Long  Island,  NY (516)  561-6590*24 

CBBS  Long  Island,  NY (516)  334-3134*24 

CONNECTION-80  Centereach,  NY  (516)  588-5836 

CONNECTION-80  Great  Neck,  NY (516)  8491*24 

NET-WORKS  Pirate's  Trek (516)  627-9048 

Adventure  BBS  (516)  621-9296 

CONNECTION-80  Lansing,  MI :(517)  339-3367 

Capital  City  BBS,  Albany,  NY (518)  346-3596*24 

Remote  Apple  Jackson,  MS  . . . .- (601)  992-1918*24 

A-C-C-E-S-S  Phoenix,  AZ 01(602)  996-9709*24 

A-C-C-E-S-S  Phoenix,  AZ &(602)  957-4428*24 

A-C-C-E-S-S  Phoenix,  AZ  :(602)  274-5964 

A-C-C-E-S-S  Scotsdale.AZ .  .(602)  998-9411*24 

ABBS  Phoenix  [AZ (602)898-0891 

CBBS  TSG,  Tucson,  AZ .(602)  746-3956*24 

FORUM-80  Sierra  Vista,  AZ (602)  458-3850*24 

BBS  Apollo,  Phoenix,  AS !(602)  246-1432*24 

CONNECTION-80  Peterborough,  NH .(603)  924-7920 

FORUM-80  Nashua,  NH .(603)  882-5041 

NET-WORKS  Portsmouth,  NH (603)  436-3461 

Software  Referral  Service (603)  625-1919 

ABBS  Vancouver,  B.C : (604)  437-7001 

CBBS  Prince  George,  B.C.,  Canada .(604)  562-9515 

RCP/M  CBBS  Frog  Hollow,  Vancouver,  BC,  CN (604)  873-4007*24 

RCP/M  Terry  O'Brien,  Vancouver,  BC,  Canada (604)  584-2543 

RCP/M  SJBBS  Johnson  City,  NY (607)  797-6416 

AMIS  Magic  Lantern,  Madison,  WI (608)  251-8538 

BBS  IBM  PC  Madison,  WI 1(608)  262-4939*24 

RATS  Wenonah,  NJ  »2 , (609)  468-3844 

RATS  Wenonah,  NJ (609)  468-5293 

ABBS  Calvary  Mission  Church,  Mnpls,  MN (612)  471-0252-rl 

CONFERENCE-TREE  Minneapolis,  MN (612)  854-9691 

MCMS  NC  Software,  Minneapolis,  MN (612)  533-1957*24 

PMS  -  Minneapolis,  MN '. (612)  929-6699*24 

PMS  -  Twin  Cities,  Minneapolis,  MN 1(612)  929-8966 

ABBS  Compumart,  Ottawa,  Ontario,  Canada .(613)  725  2243 

BULLET-80  Ironton,  OH (614)  532-6920 

Applecrackers,  Columbus,  OH (614)  475-9791*24 

Ohio  Valley  BBS (614)  423-4422 

RCP/M  CBBS  Columbus,  OH (614)  272-2227*24 

ABBS  Computer  Room,  Kalamazoo,  MI (616)  382-O101 

AMIS  G.R.A.S.S.  Grand  Rapids,  MI . .(616)  241-1971*24 

CONNECTIONS-80  W.  Mich.  Micro  Group,  MI (616)  457-1840*24 

AMIS  Starbase  12  Philadelphia,  PA (617)  876-4885 

BULLET-80  Boston,  MA &(617)  266-7789*24 

CBBS  Boston,  MA (617)  646-3610*24 

CBBS  Lawrence  General  Hospital,  Boston,  MA (617)  683-21^9 

DIAL-YOUR-MATCH  »18 (617)  334-6369-so 

PMS  -  Apple  Guild,  Weymouth,  MA (617)  767-1303*24 

Computer  City,  Danvers,  MA (617)  774-7516 

New  England  COmp.  Soc.,  Maynard,  MA (617)  897-0346 

RCP/M  MCBBS  Superbrain,  Lexington,  MA .$&(617)  862-0781*24 

Visiboard,  Wellesley,  MA  1(617)  235-5082 

NET-WORKS  Granite  City,  IL (618)  877-2904 

NET-WORKS  Warlock's  Castle  St.  Louis,  MO (618)  345-6638 

CONNECTION-80  Escondido,  CA (619)  746-6265 

ONLINE  CDC,  San  Diego,  CA (619)  452-6011 

ONLINE  Saba,  San  Diego,  CA (619)  692-1961*24 

ONLINE  Santee,  CA  [IDKGUEST,  pswd-PASS].. . .  .(619)  561-7271*24 

PMS  -  Computer  Merchant,  San  Diego,  CA (619)  582-9557 

PMS  -  Datel  Systems  Inc.,  San  Diego,  CA K619)  271-8613*24 

RCP/M  RBBS  San  Diego,  CA $&(619)  273-4354*24 

PMS  -  El  Cajon,  CA (619)  579-0553 

PMS  -  Lakeside,  CA  (type  PMS  to  activate) (619)  561-7271*24 

PMS  -  Santee,  CA »1(619)  561-7277*24 

NET-WORKS  Armadillo,  ND  (701)746-4959 

FORUM-80  Las  Vegas,  NV (702)  362-3609*24 
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SIGNON  Reno,  NV  [pswd-FREE] (702)  826-7234 

ABBS  Software  Sorcery,  Herndon,  VA (703)  471-0610 

BBS  IBM  Hostcomm  Fairfax,  VA !(703)  425-9452*24 

BBS  IBM  Hostcomm  Fairfax,  VA !(703)  591-5120*24 

BBS  IBM  Hostcomm  Fairfax,  VA  . . . . !(703)  978-0921*24 

BBS  IBM  Hostcomm  Fairfax,  VA !(703)  978-9592'24 

BBS  IBM  Hostcomm  Springfield,  VA !(703)  425-7229*24 

C-HUG  Bulletin  Board,  Fairfax,  VA (703)  360-3812*24 

Carrier  2  Alexandria,  VA (703)  823-5210 

Potomac  Micro  Magic  Inc.,  Falls  Church,  VA (703)  379-0303*24 

RCPJM  CBBS  RLP,  MacLean,  VA .(703)  524-2549*24 

Switchboard,  Alexandria,  VA (703)  765-2161*24 

TCUG  BBS,  Washington,  DC (703)  836-0384*24 

RCP/M  RBBS  Napa  Valley,  CA (707)  253-1523?? 

Armadillo  Media  Services,  Houston,  TX .(713)  444-7098 

Compuque-80,  Houston,  TX (713)  444-7041*24 

PMBBS (713)  441-4032 

RCP/M  RBBS  Houston,  TX (713)  497-5433 

Weekender,  Houston,  TX (713)  492-8700 

Zachary  *Net,  Houston,  TX (713)  933-7353*24 

IDBN  Info-Net,  Costa  Mesa,  CA (714)  545-7359 

North  Orange  County  Computer  Club (714)  633-5240 

OCTUG  Orange  County,  Garden  Grove,  CA (714)  530-8226 

Orange  County  Dta  Exchange,  Garden  Grove,  CA (714)  537-7931 


DATABASES 

Would  you  like  to  know  about  the  latest  ad- 
vances that  doctors  have  made  against  arthritis?  Or 
find  out  how  long  it  takes  to  fly  to  Chicago?  What 
about  the  addresses  of  all  your  competitors'  offices 
in  California?  To  get  the  answers  to  these  and  other 
obscure  questions,  it's  not  necessary  to  live  or 
work  near  a  large  reference  library. 

All  this  information  and  more  is  available 
through  computerized  databases  that  are  accessible 
through  computers  with  modems,  which  allow 
communication  across  the  country  via  phone  lines. 
Indeed,  just  about  everything  that  is  available  in 
print  is  also  available  on  a  database.  There  are  now 
1300  public  databases,  available  to  anyone  willing 
to  pay  to  use  them,  and  at  least  6000  private 
databases  maintained  by  colleges,  trade  associa- 
tions, and  companies. 

Most  databases  provide  abstracts  of  materials 
that  have  already  been  published  elsewhere,  usu- 
ally in  a  journal,  magazine,  newspaper,  or  confer- 
ence proceeding.  A  few  provide  only  citations,  that 
is,  the  names  of  authors,  the  titles,  and  the  publica- 
tions in  which  the  articles  appeared.  However,  it 
has  become  increasingly  popular  for  databases  to 
contain  the  entire  text  of  all  articles. 

The  greatest  advantage  to  the  use  of 
databases,  aside  from  their  ready  availability,  is 
their  indexing  and  cross-referencing  features. 
These  features  enable  you  to  conduct  a  rapid  search 
through  thousands  of  periodicals  and  other  infor- 
mation sources,  spanning  whatever  years  you 


specify,  and  give  you  the  capability  of  finding  an 
article  based  solely  on  the  date  of  publication  or  the 
author's  name.  You  can  often  search  through  "free 
text"— every  word  in  an  abstract  or  article— to  de- 
termine whether  or  not  they  contain  the  words  you 
specify.  These  features  provide  information- 
gathering  capabilities  transcending  those  possible 
or  reasonable  using  a  traditional  approach. . 

One  disadvantage  of  databases  is  a  lack  of 
common  indexing  terms  (each  system  has  its 
idiosyncracies).  Another  disadvantage  is  that  they 
may  only  be  searched  one  at  a  time. 

For  a  comprehensive  review  of  over  1000 
public  database  systems,  consult  the  OMNI  Online 
Database  Directory,  by  Mike  Edelhart  and  Owen 
Davies,  MacMillian  Publishing  Co. ,  1983,  and  read 
the  sampler  of  databases  below. 

A  Sampler  of  Information  Utilities. 

BRS/After  Dark 

BRS,  1200  Rt.  7,  Latham,  NY  12110;  (800)  833- 
4707.  This  service  offers  electronic  mail,  abstracts 
of  books  and  magazine  articles  in  science,  finance, 
education,  energy,  and  general  reference.  Hours:  6 
P.  M.  to  midnight  Monday  through  Friday,  and  all  day 
Saturday  and  Sunday.  Rates:  $6  to  $15  per  hour, 
plus  $50  subscription  fee. 

CompuServe 

CompuServe,  Consumer  Information  Service,  5000 
Arlington  Center  Blvd.,  P.O.Box  20212,  Colum- 
bus, Ohio  43220;  (800)  848-8199  or  (614)  457-0802 
in  Ohio.  This  service  offers  hundreds  of  data  bases 
for  both  the  consumer  and  business  markets, 
including  news,  entertainment,  electronic  mail, 
programming  languages,  and  user  groups.  Hours: 
24  hours,  7  days.  Rates  $6  to  $12. 50  per  hour,  plus  a 
subscription  fee  of  $19. 95  to  $49. 95,  depending  on 
where  purchased. 

Delphi 

General  Videotex  Corp.,  3  Blackstone  St.,  Cam- 
bridge, MA  02139;  (617)  491-3393.  This 
consumer-oriented  utility  offers  services  and  in- 
formation similar  to  those  offered  by  The  Source 
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and  CompuServe.  Hours:  24  hours,  7  days.  Rates: 
$6  to  $17  per  hour,  and  a  subscription  fee  of  $49. 95. 

Dialog  Information  Retrieval  Service 
Dialog  Information  Services,  Inc.,  3460  Hillview 
Ave.,  Palo  Alto,  CA  94304;  (800)  227-1927,  or 
(800)  982-5838.  This  service  offers  a  large  collec- 
tion of  databases  about  business,  government,  cur- 
rent affairs,  and  the  environment,  among  others. 
Hours:  22  hours,  Monday  through  Saturday.  Rates: 
$15  to  $300  per  hour,  with  no  minimum. 

Dow  Jones  News/Retrieval 
Dow  Jones  and  Company,  P.O.  Box  300,  Princeton, 
NJ  08540;  (800)  257-5114.  This  business-oriented 
service  provides  detailed  financial  information,  in- 
cluding current  and  historical  quotations  from  major 
stock  exchanges,  commodities  prices,  media  gen- 
eral reports,  and  financial  disclosure  details  on 
thousands  of  American  corporations.  Hours:  22 
hours,  7  days.  Rates:  $6  to  $72  per  hour,  plus 
subscription  fees  ranging  from  a  one-time  $50  to 
$50  per  month. 

ITT  Dialcom 

ITT  Dialcom  Inc.,  1109  Spring  St.,  Silver  Spring, 
MD  20910;  (301)  588-1572.  This  service  offers  a 
variety  of  data  bases  with  information  about 
medicine,  government,  energy,  and  travel,  as  well 
as  electronic  mail.  Hours:  24  hours,  7  days.  Rates: 
$11  to  $15  per  hour,  with  a  $100  per  month 
minimum. 

Knowledge  Index 

Dialog  Information  Services  Inc.,  3460  Hillview 
Ave.,  Palo  Alto,  CA  94304;  (800)  528-6050,  ext. 
415  or  (800)  227-1927.  This  service  offers  a  subset 
of  Dialog's  more  consumer-oriented  databases,  in- 
cluding business,  engineering,  psychology, 
magazines  and  computer  information.  Hours:  6 


P.M.  to  5  A.M.  Monday  through  Thursday;  6  P.M.  to 
midnight  Friday;  8  a.m.  to  midnight  Saturday;  and  3 
P.M.  to  midnight  Sunday.  Rates:  $24  per  hour,  $35 
subscription  fee. 

NewsNet 

NeWsNet,  945  Haverford  Rd.,  Bryn  Mawr,  PA 
19010;  (800)  345-1301  or  (215)  527-8030.  This  ser- 
vice offers  the  full  text  of  over  100  newsletters  on  a 
variety  of  subjects,  plus  electronic  mail  connections 
with  the  newsletter  publishers.  Hours:  24  hours,  7 
days.  Rates:  $18  to  $24  per  hour,  with  a  $15  per 
month  minimum. 

Nite-Line 

National  Computer  Network,  1929  Harlem  Ave., 
Chicago,  IL  60635;  (312)  622-6666.  This  service 
offers  financial  and  business  databases.  Hours:  24 
hours,  7  days  a  week.  Rates:  $9  to  $20  per  hour. 

Orbit  Information  Retrieval  System 
SDC  Information  Services,  2500  Colorado  Ave., 
Santa  Monica,  CA  90406;  (800)  421-7229  or  (800) 
352-6689.  This  service  offers  reference  databases 
covering  business,  chemistry,  engineering,  elec- 
tronics, and  other  fields.  Hours:  22  hours,  Monday 
through  Friday.  Rates:  $40  to  $125  per  hour,  with  a 
start-up  fee  of  $125  to  $400,  depending  on  the 
training  requested. 

The  Source 

Source  Telecomputing  Corp.,  1616  Anderson 
Road,  McLean,  VA  22102;  (800)  336-3366.  This 
service  is  a  large  general-interest  utility  offering 
consumer  information,  electronic  mail  and  con- 
ferencing, programming  languages,  and  other  ser- 
vices. Hours:  22  hours,  7  days.  Rates:  $5.75  to 
$22. 75  per  hour,  plus  a  $100  subscription  fee  and  a 
$10  per  month  minimum. 
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Utility  Programs 


Although  your  computer  system  may  not  offer  many 
of  the  useful  features  of  larger  systems,  software 
can  often  be  written  to  simulate  many  of  these 
features.  Such  software  is  often  referred  to  as  utility 
programs.  The  category  of  utility  programs  also  in- 
cludes commonly-used  routines  or  subprograms 
that  can  be  incorporated  in  a  larger  program. 
Through  the  use  of  utility  programs,  your  personal 
computer  can  emulate  its  big  brothers. 

MULTIPURPOSE  PROGRAMS 

Although  some  computer  systems  provide 
the  features  found  below,  others  don't.  The  person 
who  develops  programs  to  perform  these  and  other 
utility  functions  will  often  have  a  readily  salable 
product. 

•  Diagnostic  programs:  programs  that  test  all  of 
the  statements  and  commands  found  in  given 
BASIC  are  useful  in  determining  whether  or  not 
BASIC  has  loaded  properly  for  execution.  Pro- 
grams to  test  memory  by  filling  and  reading  all 
locations  are  also  helpful. 


•  Memory-map  programs:  a  machine-language 
program  to  output  a  memory  map  would  be  valu- 
able. 

•  Menu  selection  programs:  a  machine-language 
routine  to  automatically  find  and  execute  any 
programs  that  are  on  line  would  make  life  easier 
for  some  operators. 

•  Routines  for  improved  data  file  handling  for 
floppy  disks  or  cassettes  are  needed  for  some 
computers. 

•  Machine  language  programs  that  automatically 
convert  one  cassette/floppy  disk  standard  to 
another  are  needed  by  a  number  of  people. 

•  Variable  list  programs:  a  program  to  output  the 
current  value  and  location  for  all  variables  used  in 
a  program  would  be  useful  in  large-program  de- 
bugging. 

•  Renumber  or  resequence  programs:  a  program  to 
remember  the  statements  in  an  assembly  lan- 
guage program  or  BASIC  program  would  be  a 
convenient  tool  for  programmers. 

•  Base  conversion  programs:  this  kind  of  program 
is  useful  in  assembly  language  programming. 
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1  BASIC  patches  that  allow  commands  such  as 
INKEY$  or  GET,  which  permit  program  inputs 
without  the  pressing  of  the  ENTER  or  RETURN 
key  and  can  limit  the  time  allowed  for  a  response. 

1  Vector  graphic  assembly  language  routines  could 
be  useful. 

Cross-assemblers  or  conversion  programs  be- 
tween languages  such  as  BASIC,  FORTRAN, 
and  APL  would  be  a  boon  for  programmers. 
Routines  for  handling  fractions  instead  of  deci- 
mals for  greater  precision  in  certain  applications 
could  be  created. 

Specialized  compilers  for  BASIC:  although  writ- 
ing a  complete  BASIC  compiler  would  be  dif- 
ficult, specialized  compilers  could  be  written  to 
handle  string,  mathematical,  or  sorting  func- 
tions. The  advantage  is  the  tenfold  or  more  in- 
crease in  execution  speed. 
BASIC  patches  to  provide  increased  debugging 
power  could  include  error  simulation  routines  to 
test  a  program  (ERROR(code)  and  ON  ERROR 
GOTO  commands),  TRACE  commands  to  output 
a  listing  of  each  line  number  as  it  is  executed,  and 
powerful  editing  functions. 
Memory  routines:  relocating  memory  loaders, 
which  could  be  written  in  extended  BASIC,  could 
combine  two  programs,  add  machine  language 


calls,  and  so  on.  A  memory  dump  program  could 
be  provided  to  output  programs  in  a  variety  of 
formats  (decimal,  hexadecimal,  octal,  and  so  on). 
A  memory  search  program  could  be  used  to  iden- 
tify all  occurrences  of  a  specific  byte  value  be- 
tween any  starting  and  ending  addresses;  such  a 
program  would  be  useful  in  disassembling  and 
debugging. 

•  AUTO  command:  the  AUTO  command  automati- 
cally provides  line  numbers  when  a  program  is 
being  typed  in. 

•  PLOT,  command:  the  PLOT  command  is  useful  in 
automatically  displaying  the  values  of  a  function 
or  given  set  of  data  in  graphical  form. 

•  Multiple-precision  routines:  the  scientific  user  of 
small  computers  (and  some  business  users) 
needs  multiple-precision  capability. 

In  addition,  a  useful  reference  manual  that  in- 
cluded commonly  used  BASIC  or  assembly- 
language  routines  would  simplify  programming  for 
the  beginner. 


UTILITY  SUBROUTINES 

Below  are  some  practical  routines  that  deal 
with  matrices  and  string  manipulation 


Matrix  and  String  Utility  Routines 


100 
110 
120 
130 
140 
150 
160 
170 
ISO 


REM  MATRIX 
FOR  1=1  TO 
FOR  J=l  TO 
FOR  K=l  TO 


ADDITION 

Nl 

N2 

N3 


5-D 


C(K,  J,  I)=A(K„  J,  D+EUK. 

NEXT  K 

NEXT  J 

NEXT  I 

RETURN 


J,  I) 


1 00 
110 
120 
130 
140 
150 
160 


REM  MATRIX 
FOR  1=1  TO 
FOR  J=l  TO 
B(J, I)=A(I 
NEXT  J 
NEXT  I 
RETURN 


TRANSPOSTION 

Nl 

N2 

J) 


222 


300  REM  MATRIX  MULTIPLICATION  BY  ONE  VARIABLE  3-D 

310  FOR  1=1  TO  N3 

320    FOR  J=l  TO  N2 

330      FOR  K=l  TO  Nl 

340        B(K,J,I)=A(K,J,I)*X 

350      NEXT  K 

360    NEXT  J 

370  NEXT  I 

380  RETURN 

390  REM •■ 


lOOO  REM  INSTRING  SUBROUTINE 

1010  FOR  1=1  TO  LEN(X*)-LEN<Y*>+1 

1020  IF  Y*=MID*(X*, I„LEN<Y$) )  THEN  RETURN 


1030  NEXT  I 
1040  RETURN 


400  REM  MATRIX  INPUT  ROUTINE  3-D 
410  FOR  1=1  TO  Nl 
420    PRINT  "PAGE"; I 


430 

FOR  J=l  TO  N2 

440 

PRINT  "INPUT  ROW"; J 

450 

FOR  K=l  TO  N3 

460 

INPUT  X(J,K,I) 

470 

NEXT  K, J: PRINT 

480 

NEXT  I 

490 

RETURN 

1 00 

REM  INPUT  SUBROUTINE  (TWO  D 

110 

FOR  H=l  TO  N 

120 

PRINT  "ENTER  ROW" 5 H 

130 

FOR  1=1  TO  Nl 

140 

INPUT  X(H,  I). 

150 

NEXT  I,H 

160 

RETURN 

1 00 

REM  MATRIX  PRINT  SUBROUTINE 

110 

FOR  1=1  TO  Nl 

120 

FOR  J=l  TO  N2 

130 

FOR  K=l  TO  N3 

140 

PRINT  X<J,K, I) , 

150 

NEXT  K 

160 

PRINT 

170 

NEXT  J 

ISO 

PRINT 

190 

NEXT  I 

200 

PRINT 

210 

RETURN 

3-D 
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200  REM  MATRIX  READ  FROM  DATA  STATEMENTS  IN  3-D 
210  FOR  1=1  TO  Nl 


*2*!?f) 

FOR  J=l  TO  N2 

230 

FOR  K=l  TO  N2 

240 

READ  X(J,K,I) 

250 

NEXT  K,J, I 

260 

RETURN 

270 

DATA  'DATA  INSERTED  HERE 

1 00 

REM  MAT-2ER  MATRIX  SET  TC 

110 

FOR  1=1  TO  Nl 

120 

FOR  J=l  TO  N2 

130 

FOR  K=l  T0-N3 

140 

X(K, J, I)=0 

150 

NEXT  k,J, I 

160 

RETURN 

1  DIM  A(12) 

10  FOR  N=l  TO  10 

20  ] 

CNPUT  A(N) 

30  NEXT 

100 

REM  IMPROVED  RIPPLE  SORT 

110 

C=0:N=N-1 

120 

IF  N=0  GOTO  200 

130 

FOR  1=1  TO  N 

140 

IF  A(IX=A<I  +  1)  THEN  ISO 

150 

T=A ( I ) 

160 

A(I)=A(I+1) 

170 

A(I+1)=T 

179 

C=l 

ISO 

NEXT  I 

1 90 

IF  C=l  THEN  110 

200 

FOR  N=2  TO  11 

210 

PRINT  A(N) ; 

220 

NEXT 

ZERO  SUBROUTINE  3-D 


ROUTINE 


Sorting  Routines  requires  more  BASIC  program  lines  than  some  of 

Among  the  different  sorting  routines  listed    the  other  sorts  require.  The  Bubble  sort  is  the  least 
here,  the  Quicksort  is  the  most  efficient  although  it    efficient: 


100  REM  BUBBLE  SORTING  ROUTINE 

110  FOR  1=1  TO  N-l 

120  FOR  J=I+1  TO  N 

224 


130  IF  A(IX=A(J) 
140  T=A(I) 
150  A<I)=A<J) 
160  A(J)=T 
170  NEXT  J 
180  NEXT  I 


THEN  00170 


50  REM  ALPHABATIZING  PROGRAM 

60  REM  OUTPUTS  LISTING  ONLY  (DOESN'T  REARRANGE  MEMORY) 

100  CLEAR  5000 

110  DIM  A* (100),  N*(100) 

120  FOR  N=l  TO  1000 

130  INPUT  "WORD";N$(N) 

140  IF  N*(N)="STOP"  THEN  160 

150  NEXT  N 

160  ' 

170  FOR  1=1  TO  N 

180  A*(I)=N$(I) 

190  NEXT  I 

200  1=1 :  K=0 

210  FOR  J=2  TO  N 

220  IF  A*(IXA*(J)  GOTO  230  ELSE  I=J 

230  NEXT  3 

240  IF  N*(I)="STOP"  THEN  250  ELSE  PRINT  N* ( I ) 

250  A*(I)="ZZZ" 

260  K=K+1 

270  IF  K=N  THEN  280  ELSE  200 

280  PR I NT: PR I NT 

290  END 


ELEMENTS  IN  D(  ) 


5  REM  SHELL-MET ZNER  SORT 

10  P=N:REM  N=NO.  OF  DATA 

20  P=INT(P/2) 

30  IF  P=0  THEN  RETURN."  REM  ARRAY  NOW  SORTED!  RETURN  TO  MAIN  PROGRAM 

40  K=N-P:J=1 

50  I=J 

60  L=I+P 

70    IF    DdXDIL)    THEN    100 

80    T=D(I> :D(I)=D(L) :D(L)=T:l=I-P 

90    IF    I>=1    THEN   60  I 

100    J=J+1 


110    IFJOK    THEN    50  ELSE 


20 


5  REM  QUICKSORT 

6  REM  N=NO.  OF  DATA  ELEMENTS  IN  D(  ) 

10  x=o: i=x+x:s(i+i)=i:S(i+2)=N:x=x+i 

20  IF  X=0  THEN  RETURN 

30  X=x-i:i=x+x:A=S(l+i):B=S(l+2> 
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40  Z=D<A) :TP=A:BT=B+1 

50  BT=BT-1 

60  IF  BT=TP  THEN  110 

70  IF  Z<=D(BT)  THEN  50  ELSE  D(TP)=D(BT) 

SO  TP=TP+1 

90  IF  BT=TP  THEN  110 

100  IF  Z>=D(TP)  THEN  80  ELSE  D <BT) =D <TP) : GOTO  50 

110  D(TP)=Z 

120  IF  B-TP>=2  THEN  I=X+X: S ( 1+1 ) =TP+1 : X=X+1 : S < 1+2) =B 

130  IF  BT-A>=2  THEN  I=X+X: S < 1+1 ) =A: X=X+1 : S ( 1+2) =BT-1 

140  P=P+l:SOTO  20 

1000  F0RX=lT09:D(X)=X*-l:NEXT 

1010  G0SUB5 

1020  F0RX=1T09:PRINTD(X) 5 :NEXT 
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Chapter  1 1 


Miscellaneous  Applications 


There  are  a  number  of  applications  that  don't  fit 
easily  in  the  categories  already  covered.  These 
applications  will  be  discussed  in  this  final  chapter. 

COMPUTERS  AND  THE  HUMANITIES 

Amateur  as  well  as  professional  scholars  of 
history,  language,  literature,  anthropology,  ar- 
cheology, and  other  fields  of  the  humanities  may 
find  personal  computers  useful  in  storing,  organiz- 
ing, analyzing,  and  indexing  data. 

History 

The  historian  may  wish  to  encode  information 
of  the  following  types  for  use  with  computers: 

1.  Census  records. 

2.  Congressional  voting  records. 

3.  Election  statistics. 

4.  Court  records  and  decisions. 

5.  Ship      sailing      records— historical, 
geneological,  and  economic  significance. 

6.  Diplomatic  records. 

7.  Journalism  statistics.  A  school  of  jour- 


nalism has  used  a  personal  computer  to 
record  and  plot  the  ratios  of  column  inches 
devoted  to  various  political  parties  or  can- 
didates in  fifteen  major  national  newspa- 
pers, under  the  assumption  that  the  amount 
of  text  space  allotted  to  a  candidate  or  party 
reflects  the  paper's  views.  You  or  your  or- 
ganization may  wish  to  pursue  similar  lines 
of  research. 

Language 

The  microcomputer  can  be  used  to  deal  with 
languages  in  at  least  two  ways. 

Translations.  It  is  possible  to  program  a  per- 
sonal computer  to  act  as  a  crude  translating 
machine,  capable  of  recognizing  foreign  vocabulary 
words  and  providing  the  English  equivalent.  Sen- 
tence structure  and  overall  meaning  are  much  more 
difficult  to  program,  however,  and  are  a  current 
area  of  research  in  computer  science.  The  pocket 
translating  machines  and  spelling-checker  pro- 
grams available  today  may  serve  as  models  for  such 
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a  program,  which  may  provide  an  interpretable  En- 
glish equivalent  to  a  given  foreign  phrase.  For 
example,  if  provided  with  the  Spanish  phrase, 
"Mucho  gusto  en  conocerlo"  (Pleased  to  meet  you), 
the  literal  computer  translation  may  read,  "Very 
much  in  to  meet  you."  A  more  sophisticated  pro- 
gram could  check  for  idiomatic  expressions  such  as 
this  and  provide  a  better  translation.  A  translating 
program  may  prove  to  be  educational  and  useful  to 
those  with  a  minimum  of  familiarity  with  a  lan- 
guage. 

Compilation  of  dictionaries.  The  dialects 
and  languages  of  a  speech  community  can  be  en- 
tered into  a  computer  database  for  ease  in  compiling 
a  dictionary. 

Literature  and  Writing 

There  are  a  number  of  ways  in  which  you  can 
use  your  personal  computer  to  help  you  in  your 
writing  and  in  analyzing  literature. 

Auto-editor.  A  personal  computer  program 
capable  of  performing  basic  editing  functions  has 
been  developed.  The  program  balks  at  overly  long 
sentences,  or  stilted,  cumbersome  expressions  and 
suggests  alternatives.  For  instance,  it  will  suggest 
"absolutely"  for  "categorically,"  and  "by"  or 
"under"  instead  of  "in  accordance  with."  It  pro- 
poses "now"  instead  of  "at  this  point  in  time. "  It  can 
detect  spelling  errors,  improper  punctuation,  split 
infinitives,  and  other  common  grammatical  errors. 

Thesaurus.  An  on-line  thesaurus  can  provide 
rapid,  time-saving  access  to  alternative  word 
choices.  This  feature,  in  conjunction  with  a  word 
processor,  can  serve  as  a  powerful  writing  tool. 

Automatic  table  of  contents/index  gen- 
eration. In  preparing  a  text  on  a  word  processor, 
the  author  need  only  flag  with  a  special  code  the 
keywords  to  be  indexed  or  the  chapter  headings  for 
the  table  of  contents.  The  computer  will  compile 
and  alphabetize  these  entries  in  desired  form. 

Writer's  outline  utility.  A  specialized  word 
processor  with  database  capabilities  could  assist 
the  writer  in  preparing  outlines. 

Spelling  checker.  Numerous  spelling 
checker  programs  are  available  for  personal  com- 
puters. These  are  capable  of  checking  documents 


for  errors  on  the  basis  of  30,000-90,000  stored 
words.  The  user  has  the  option  of  adding  or  deleting 
words,  and  special  dictionaries  are  available  (for 
example,  medical  terms). 

Analysis  of  literature.  Computers  can  be 
used  to  prepare  statistical  analyses  of  literature 
that  you  have  typed  using  your  word  processor. 
Such  a  program  would  calculate  the  number  of  lines, 
number  of  sentences,  number  of  words,  number  of 
syllables,  average  word  length,  average  sentence 
length,  and  the  reading  level  based  upon  any  of  the 
standard  formulas  developed  by  Flesch,  Fry, 
Raygor,.  Dale  Chall,  or  Spache.  For  instance,  the 
Fog  index  (FI)  is  given  by 

no.  "hard"  words 
x  100 


total  no.  words 

FI  =  +  ■ 

total  no. 

sentences 


total  no.  words 


-x4 


where  "hard"  words  are  considered  to  be  those 
words  with  three  or  more  syllables,  except  proper 
names,  compounds  of  short  words  (for  example, 
down-and-out),  and  words  in  which  the  third  sylla- 
ble ends  in  es  or  ed  (for  example,  arrested).  If  the 
value  of  FI  is  20  or  more,  you  should  consider  the 
reading  level  advanced  or  difficult.  To  ensure  that 
your  message  gets  across  to  the  masses,  aim  for  a 
FI  of  around  10.  A  concordance  table,  listing  all 
words  used  and  their  absolute  or  relative  frequency 
of  use  can  also  be  constructed;  the  list  can  be  sorted 
alphabetically  or  by  frequency.  See  Microcomput- 
ing, page  60,  June  1981  for  a  sample  BASIC  pro- 
gram. Word-class  distribution  statistics,  measures 
of  redundancy  of  vocabulary  (averages,  medians, 
and  so  on),  numbers  of  modifiers,  adverb/verb  and 
auxiliary  verb/verb  ratios,  clause  length  statistics, 
distribution  of  clause  types  (simple,  compound 
subject,  and  so  on),  distribution  of  sentence  open- 
ers (prepositional  phrase,  subordinated  clause,  and 
so  on),  and  style  of  sentence  structure  could  also  be 
analyzed  by  a  more  complex  program. 

Along  similar  lines,  computers  have  been  used 
to  statistically  determine  whether  works  of  indefi- 
nite authorship  are  typical  of  a  given  writer  (for 
example  works  by  Bacon  and  Shakespeare  are  com- 
pared), since  the  above  statistical  parameters  tend 
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to  remain  constant  for  one  writer  and  may  be  com- 
pared with  the  figures  for  other  writers. 

Literature  database.  A  specialized  database 
could  store  important  manuscripts  and  be  used  to 
index,  cross  reference,  and  find  given  keywords  or 
phrases  quickly.  QWIK-Indexes™  may  also  be  gen- 
erated. 


AID  TO  THE  HANDICAPPED 

Use  of  microcomputers  as  aids  to  the  hand- 
icapped is  a  very  important  and  useful  application; 
only  the  forefront  has  been  explored,  and  the  po- 
tential is  tremendous.  Examples  of  this  application 
include  the  following: 

The  computer  can  act  as  a  "robot"  for  the 
handicapped.  One  system  was  used  by  a  paraplegic 
to  communicate  with  others;  the  computer  scanned 
the  alphabet  and  once  a  particular  letter  was 
reached,  the  patient  would  make  a  certain  move- 
ment to  signal  that  that  letter  was  to  be  typed  out.  In 
this  manner,  words  and  sentences  were  produced. 

Voice  synthesizers  and  decoders  are  espe- 
cially helpful  for  those  who  cannot  interact  with  a 
computer  through  a  video  terminal. 

A  computer  with  a  printer  (either  dot  matrix  or 
daisy- wheel  type)  could  be  used  to  convert  inputted 
text  into  braille.  Each  line  of  text  would  be  reversed 
in  computer  memory  and  the  braille  equivalent 
(composed  of  periods  or  dots)  printed  in  its  mirror 
image.  By  turning  over  the  output,  the  impressions 
left  by  the  printer  will  form  braille  text. 

The  personal  computer  could  be  used  to 
monitor  people  who  are  chronically  ill,  are  predis- 
posed to  suffer  heart  attacks,  or  are  in  other  life 
threatening  situations.:  Twice  a  day  the  patient 
would  be  required  to  input  something  into  their 
computer;  if  they  don't,  medical  personnel  would 
be  alerted  by  telephone  dialing  and  vocal  output 
peripherals. 

Other  areas  in  which  the  microcomputer  can 
help  the  handicap  include  the  following: 

•  Sensory  enhancement  or  translation:  clarification 
of  audio  or  visual  information  or  translation  of 
video  information  to  and  from  audio  information. 

•  Manipulator  controls:  powered  prostheses  or 


robots  for  individuals  with  severe  motor  impair- 
ment. 

Information  amplification  for  the  motion  im- 
paired: increase  the  amount  of  information  that 
can  be  relayed  with  a  given  number  of  key- 
strokes, for  example  a  shorthand  translates  as 
described  in  the  first  chapter. 

•  Recreation  and  development  aids:  games  and 
educational  programs  allowing  handicapped  per- 
sons a  reliable  means  to  control,  explore,  and 
manipulate  objects  or  learn  about  them. 

•  Communication  aids:  telephone  dialers,  com- 
puter-aided writing  and  filing  systems,  and  phone 
communication  through  the  use  of  speech  syn- 
thesizers, for  example. 

•  Security/monitoring  systems:  mechanisms  for 
controlling  locks  and  windows,  emergency  call 
systems,  medication  reminders,  and  monitoring 
systems  that  will  periodically  demand  a  response 
and  signal  if  the  individual  fails  to  answer  its 
queries. 

•  Information  resource/management:  inability  to 
quickly  manipulate  and  scan  materials  may  pre- 
vent the  handicapped  from  making  effective  use 
of  dictionaries,  phone  lists,  calendars,  filing 
systems,  and  books.  These  functions  can  be  par- 
alleled through  the  use  of  specifically  designed 
microcomputer-based  interfaces  that  work  with 
residual  physical  and  sensory  capabilities. 

TEST  YOUR  TYPING  SPEED 

Those  learning  to  type  will  appreciate  a  mea- 
surement of  their  progress  in  speed.  A  program  to 
test  typing  speed  would  have  to  be  written  in  as- 
sembly language  if  your  BASIC  doesn't  provide 
INKEY$,  GET,  ENTER  (or  RETURN)  or  WAIT 
type  commands. 

MAINTENANCE  OF 
ORGANIZATION  RECORDS 

Clubs  and  other  organizations  may  find  it 
worthwhile  to  purchase  or  use  a  member's  small 
computer  to  ease  paperwork.  Anyone  who  develops 
software  for  this  application  may  be  able  to  sell  it  to 
local  organizations  or  charge  for  computing  ser- 
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vices  done  on  his  own  computer. 

CO-OP  SCHEDULING  AND  FINANCES 

A  computer  analysis  of  costs  and  duties  could 
help  divide  these  responsibilities  fairly  between 
members  of  communal  residence  or  cooperative 
organizations.  A  duty  roster  in  calendar  form  as 
well  as  a  financial  summary  of  amounts  owed  could 
then  be  printed  out. 

TAILOR'S  CALCULATIONS 

Alterations  to  dress,  suit,  and  other  patterns 
for  "tailor-made"  clothing  could  be  mathematically 
determined  by  your  computer.  If  you  have  a  printer 
with  a  line  length  large  enough,  the  altered  pattern 
could  be  printed  in  actual  size. 

PHONE  CODE 

A  relatively  simple  program  could  be  written 
to  produce  a  listing  of  all  the  possible  letter  combi- 
nations on  the  phone  dial  for  a  given  phone  number. 
Businessmen  may  use  this  listing  to  find  an  appro- 
priate, easy-to-remember  word  representing  their 
phone  number  (for  example,  a  computer  store 
number  was  266-7883  and  COMPUTE  was  the  cor- 
responding telephone  word).  An  interesting  word 
may  appear  for  you  to  use  with  your  home  phone. 

BRAINSTORMER 

A  few  years  ago,  a  large  sphere  containing 
thousands  of  plastic  squares  with  a  different  word 
printed  on  each  was  sold  as  a  "brainstormer."  The 
idea  behind  the  device  was  to  rotate  the  sphere,  mix 
up  the  words,  and  then  peek  through  a  window  at 
whatever  words  appeared.  From  this  combination 
of  adjectives  and  nouns,  the  user  was  to  come  up 
with  a  new  invention  or  idea.  The  "brainstormer" 
could  be  useful  in  stimulating  ideas;  for  instance,  if 
the  words  television  and  game  appeared,  a  properly 
prepared  mind  could  have  made  the  intuitive  leap  to 
invent  video  games.  You  could  create  your  own 
computerized  "brainstormer"  by  programming  a 
large  array  of  nouns  and  adjectives  with  a  random 
number  generator  that  calls  them  to  the  video 
screen  5-10  at  a  time. 


A  similar  program  could  be  called  an  "idea 
stimulator."  Instead  of  miscellaneous  words  ran- 
domly appearing,  a  special  set  of  adjectives  or 
phrases  describing  possible  improvements  to  an 
invention  would  appear  individually  and  in  random 
order  on  the  screen.  For  instance,  if  you  were 
trying  to  invent  a  new  type  of  cooking  pot  and  the 
word  slower  appeared,  the  brainstormed  idea  might 
be  a  slow  crockpot  cooker.  The  list  of  brainstorm- 
ing questions  below  could  be  randomly  arranged  by 
your  computer  and  individually  called  to  the  screen. 

Brainstormer  programs  needn't  be  limited  to 
products  and  inventions.  Choreographer  Merce 
Cunningham,  Mozart,  Oscar  Wilde,  and  cartoonist 
Sergio  Alverez,  among  others  in  the  arts,  have 
reported  using  similar  random  methods  as  an  ap- 
proach to  artistic  creation.  One  cartoonist  reports 
use  of  a  computer  program  to  randomly  mix  cliches, 
locations,  props,  and  various  character  types  for 
possible  cartoon  ideas. 


Brainstorm  Chart  for 

Products,  Processes,  or  Services 

In  what  other  way  can  it  be  made  more  effec- 
tive? 

Is  there  a  surer  way  to  do  it? 

Is  there  a  cleaner,  neater  way  to  do  it? 

Is  there  a  more  comfortable  way  to  do  it? 

Is  there  a  more  healthful  way  to  do  it? 

Is  there  a  safer  way  to  do  it? 

Is  there  a  more  durable  form? 

Is  there  a  more  pleasant  way  to  do  it? 

Is  there  a  quicker  way  to  do  it? 

Is  there  an  easier  way  to  do  it? 

In  what  other  way  can  it  be  improved? 

Can  the  package  be  improved? 

Can  the  distribution  methods  be  improved? 

Can  it  be  made  disposable  or  portable? 

Can  a  combination  with  other  devices  be  de- 
vised. 

Can  something  be  added  to  enhance  its  value? 

Can  it  be  adapted  to  some  other  use? 

Is  there  a  way  to  increase  its  usefulness;  can  it 
become  multipurposed? 

Can  it  be  made  more  attractive? 
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Is  there  a  cheaper  way  to  do  it?  large  list  of  "idea  words"  are  shuffled  and  displayed 

Can  a  similar  result  be  obtained  in  any  other  three  at  one  time.  The  object  is  to  apply  your 

wav?  thinking  to  these  words  in  relation  to  another  idea. 

For  example,  if  you  had  to  design  a  new  product, 

Inventor's  Idea  Stimulator  such  as  a  cigarette  lighter,  and  the  word  disposable 

The  program  in  Listing  11-1  can  be  very  useful  appeared,  the  idea  of  a  disposable  lighter  would 

to  those  who  have  a  creative  and  intuitive  mind.  A  come  to  y°u- 


Listing  1 1  -1 :  The  Inventor's  Idea  Stimulator  Program 


50  REM  INVENTOR'S  IDEA  STIMULATOR 

51  DIM  A*<98) ,  M<98> 

60^ PRINT "THE  PURPOSE  OF  THIS  PROGRAM  IS  TO  STIMULATE  YOUR  CREATI 

70  PR I NT "THINKING  WHEN  WORKING  ON  AN  INVENTION  OR  PRODUCT,  a 

SERIES" 

80  PRINT"OF  THREE  WORDS  WILL  BE  PRINTED.   tHINK  ABOUT  EACH  CAREFU 

90  PR I NT "AND  TRY  TO  APPLY  THEM  TO  YOUR  INVENTIVE  PROCESS.   fOR 
EXAMPLE" 

91  PRINT" IF  YOU  WERE  TRYING  TO  DEVELOP  A  PRODUCT  TO  IMPROVE 
OFFICE" 

92  PRINT-COMMUNICATION  AND  THE  WORD  'EFFICIENT'  APPEARED,  YOU 
MIGHT" 

93  PR I NT "THINK  OF  A  DICTATING  MACHINE,  ETC. " 

94  PR I NT "TYPE  'ENTER'  WHEN  READY" 

95  FOR  X=l  T098:  READ  A*(X):NEXT  X 
100  RANDOM 

120  N=98:F0RI=1  TO  N 

130  M(I)=I:  NEXT  I 

140  FOR  1=1  TO  N-l 

150  R=(N+1-I)*RND(0> 

170  R=INT<R)+I 

180  T=M(R) 

190  M(R)=M<I) 

200  M ( I ) =T . 

210  NEXT  I 

220  PR I NT "TYPE  'ENTER'  WHEN  FINISHED  WITH  EACH  WORD  SET" 

230  FOR  X=l  TO  33STEP3 

240  PRINT  A*(M<X>) 

250  PRINT  A*(M(X+1) ) 

260  PRINT  A*(M(X+2) ) 

270  INPUT  B* 

280  NEXT  X 

290  END 

300  DATA  LARGER ,  SMALLER , LONGER , SHORTER , TH I CKER , TH I NNER , DEEPER , 

SHALLOWER, STAND  VERTICALLY/HORIZONTALLY, MAKE  SLANTED  OR  PARALLEL 

310  DATA  STRATIFY, INVERT, CONVERGE, ENCIRCLE, INTERVENE, DELINEATE, 

BORDER , MORE , LESS , CHANGE  PORPORT I ONS , FRACT I ONATE , J  0 1 N  SOMETH I NG 

320  DATA  ADD  SOMETHING, COMBINE, COMPLETE, CHANGE  ARRANGEMENT, FASTER, 

SLOWER, LAST  LONGER, CHRONOLOGIZE, MAKE  PERPETUAL, SYNCHRONIZE'        | 
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330  DATA  RENEWABLE, ALTERNATING, STIMULATED, ENERGIZED, STRENGTHENED, 

LOUDER, LESS  NOISE, COUNTERACT I NB, STRONGER, WEAKER,  ALETERED 

340  DATA  CONVERTABLE, SUBSTITUTED, INTERCHANGED, STABILIZED, REVERSED, 

REDILIENT, UNIFORM, CHEAPER, ADD/CHANGE  COLOR, IRREGULAR  DESIGN 

350  DATA  CURVED  DESIGN, MODERN  DESS I GN, HARDER, SOFTER, SYMMETRICAL, 

NOTCHED, ROUGHER, SMOOTHER,  DAMAGE  AVOIDED, DELAYS  AVOIDED 

360  DATA  THEFT  AVOIDED, ACCIDENTS  PREVENTED, CONFORMABI LI TY, 

ANIMATED, STILLED, DIRECTED  MOTION, ATTRACTED/REPELLED  MOTION, LOWERED 

370  DATA  BARRED, OC I LLATED, AG I TATED, HOTTER, COLDER, OPENABLE, 

PREFORMED , D I SPOSEABLE , I NCORPORATED ,  SOL I D I F I ED , L I QUEF I ED , VAPOR I Z  ED 

380  DATA  PULVERIZED, ABRADED, LUBRICATED, WETTER, DRYER, INSULATED, 

EFFER VEESCED , COAGU  LATED , ELAST I C I Z  ED , RES I 5TANT , L I GHTER , HEA V I ER 

390  DATA  FOR  MEN/WOMEN/CHILDREN, FOR  ELDERLY/HANDICAPPED, FORIEGN 

MARKETING 


SOURCE  INDEX 

Addresses  of  manufacturers,  institutions,  or- 
ganizations, and  other  sources  of  information  or 
products  can  be  stored  in  computer  form  and  in- 
dexed for  future  reference.  Any  source  of  informa- 
tion or  materials  that  you  don't  have  use  for  at 
present,  yet  know  you  may  need  in  the  future, 
should  be  stored  (for  example,  manufacturers  and 
suppliers  of  peripherals  for  your  system).  These 
sources  can  be  indexed  under  the  material  they  can 
provide. 

PEOPLE  MATCHING 

At  a  party  or  other  social  gathering  it  is  often 
best  to  make  arrangements  so  that  those  who  are 
most  similar  will  meet  each  other.  Recently  at  a 
convention,  a  microcomputer  was  used  to  create 
special  name  cards  for  each  guest.  Everyone  who 
attended  had  previously  filled  out  a  questionnaire 
indicating  his  or  her  occupation,  hobbies,  age,  sex, 
likes  and  dislikes,  and  so  on.  This  data  was  input  to 
the  computer,  which  subsequently  produced  a  spe- 
cial name  card  with  differently  colored  dots  on  it  for 
each  individual.  Each  color  indicated  a  specific 
characteristic  of  that  person,  and  thus,  the  guests 
could  instantly  find  others  who  had  the  same  color 
dots  and  thus  the  characteristics  as  themselves. 

Computers  have  prepared  seating  charts  for 
dinners,  arranged  blind  dates,  matched  carpools, 
and  paired  athletes  according  to  individual  charac- 
teristics (partner  or  opponent  matching).  A  bulletin 
board  service  for  modem  owners  called  Dial- 


Your-Match  (213)  842-3322  allows  computer  dating 
for  the  would-be  romantic. 

An  interesting  people  matching  game  would 
ask  participants  to  rank  their  ideals.  The  list  of 
common  ideals  below  could  be  used  for  that  pur- 
pose. 

1.  Active  and  satisfying  life 

2.  Active  and  satisfying  athletic  life 

3.  Power  over  things  (for  example,  au- 
tomobiles, boats,  and  computers) 

4.  Socially  significant  activity 

5.  Good  health 

6.  Opportunities  for  risk  and  adventure 

7.  Resilience  (ability  to  "bounce-back") 

8.  Prestigious  family  life 

9.  Artistic  ability 

10.  Ability  to  initiate  and  maintain  friendships 

11.  Intellectual  ability 

12.  Ability  to  draw  love  from  others 

13.  Ability  to  influence  others  with  your  ideas 

14.  Ability  to  be  a  caring  person 

15.  Ability  to  give  love 

16.  Close  and  supportive  relationships 

17.  Intellectual  stimulation 

18.  Approval  by  opposite  sex 

19.  Wealth 

20.  Ability  to  be  self-sufficient 

21.  Physical  attractiveness 

Each  participant  could  rank  each  item  in  terms 
of  its  importance  to  him  or  her.  Next,  everyone 
would  be  allotted  a  certain  number  of  tokens  to  use 
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in  bidding  for  the  items  of  the  most  importance  to 
themselves.  Participants  will  realize  what  is  of  the 
most  significance  in  their  life  and  that  of  others. 

Similarly  two  or  more  players  could  rank  1) 
what  I  think  I  am,  2)  what  the  other  player  thinks  I 
am,  and  3)  what  the  other  player  thinks  I  think  I  am 
(and  2  and  3  for  the  other  player)  for  these  charac- 
teristics: aggressive,  dependent,  enthusiastic,  in- 
telligent, honest,  humorous,  jealous,  kind,  rude, 
sensitive,  sensual,  and  sociable.  The  personal 
computer  would  then  compare  and  correlate  re- 
sponses in  a  useful,  insightful  way. 

On  a  more  personal  basis,  programs  have  been 
written  to  first  determine  the  "personality"  makeup 
of  a  couple  and  then  suggest  an  appropriate  "inter- 
lude. "  This  is  not  a  children's  game  and  is  an  appli- 
cation to  be  used  at  your  own  risk. 

Along  similar  lines,  your  local  organization  or 
business  could  use  a  computer  car-pool  matching 
program  if  there  are  many  people  involved. 


to  produce  assorted  types  of  greeting  cards,  an- 
nouncements, and  invitations  on  their  printers.  One 
example  is  shown  in  Fig.  11-1.  The  cards  can  be 
personalized  and  can  make  use  of  computer  art.  One 
hobbyist  uses  his  computer  and  printer  to  produce 
Christmas  gift  wrapping  paper  by  printing  designs 
of  Christmas  trees,  snowflakes,  and  other  patterns. 

CONTESTS 

For  those  who  take  sweepstakes  seriously,  a 
personal  computer  can  be  used  to  fill  out  multiple 
contest  entry  forms  with  name,  address,  and  addi- 
tional information  required.  One  group  of  com- 
puterists  entered  a  large  national  contest  a  few 
years  ago,  using  a  computer  to  print  10,000  entry 
forms;  theywon over 90%ofthe prizes.  Asaresult, 
many  contests  now  require  hand-printed  entry 
forms.  However,  peripherals  are  now  available  that 
can  duplicate  your  handwriting  or  signature  using  a 
programmable  "mechanical  writing  arm."  Technol- 
ogy marches  onward. 


GREETING  CARD  PRODUCER  HANDWRITING  ANALYSIS 

Some  clever  hobbyists  have  written  programs  Many  major  corporations  are  now  using  hand- 
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Fig.  1 1  -1 .  A  computer  generated  greeting  card. 
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writing  analysis  as  one  instrument  to  evaluate 
prospective  employees,  although  its  usefulness 
remains  controversial.  The  gaudy  carnival  "hand- 
writing analysis  computers"  do  litte  more  than 
printout  a  random  evaluation,  as  handwriting 
analysis  is  still  on  the  cutting  edge  of  computer 
science.  However,  a  relatively  simple  program 
could  printout  the  standard  interpretations  for 
handwriting  characteristics  after  these  have  been 
encoded  by  an  expert.  Such  a  program  could  elimi- 
nate the  drudgery  of  writing  an  explanation  for  each 
characteristic  and  could  check  for  conflicting  or 
concording  results. 

FIFTY  MISCELLANEOUS  APPLICATIONS 

To  further  exemplify  the  scope  of  applications 
of  personal  computers  in  all  walks  of  life,  I  have 
listed  some  of  the  more  unusual  uses  readers  have 
contributed: 

•  Design  and  animation  of  marching  band  patterns. 

•  Maintenance  and  inventory  of  equipment  and  in- 
struments in  small  laboratories. 

•  Membership  tracking  for  small  organizations 
with  the  addition  of  dues  accounting,  question- 
naire analysis,  and  mailing  list  capabilities. 

•  TV  pattern  generator  for  electronic  technicians. 

•  Artistic  pacifier  for  toddlers  based  on  random 
graphical  patterns,  as  a  form  of  the  stimulation 
necessary  for  the  development  of  a  normal  IQ. 

•  Banner  and  sign  generator  to  prominently  display 
your  message,  created  on  ordinary  lineprinters. 

•  Posters  and  calendars  from  lineprinter  output. 

•  Translations  of  foreign  words  done  by  portable 
computers  for  travelers  (or  for  educational  pur- 
poses). 

•  Analysis  of  the  cost-saving  benefits  of  various 
solar  collector  designs. 

•  Calculation  of  home  improvement  costs  by  de- 
termining gallons  of  paint,  rolls  of  wallpaper,  or 
square  yards  of  carpeting  for  a  given  job. 

•  Car  maintenance  reminder  for  routine  tuneups 
and  parts  replacement  according  to  miles  driven. 

•  Car  pool  record  keeping  program  which  records 
car  usage  by  driver,  destination,  and  date  with 


the  ability  to  print  schedules  for  each  member. 

•  Bendo  Kagawa,  a  Zen  priest  in  Japan,  uses  his 
personal  computer  to  help  people  meditate. 

•  Bob  Waltz's  personal  computer  at  Smithers- 
Oasis  can  tell  you  all  you  ever  wanted  to  know 
about  germanium  growing. 

•  Three  Harvard  professors  writing  a  physiology 
text  use  their  personal  computers  to  exchange 
chapters  by  phone. 

•  Edward  Adler  arranged  for  his  computer  to  rock 
his  baby's  cradle  every  time  she  cried. 

•  Architects  can  sketch  new  designs  on  personal 
computers  that  rival  design  systems  formerly 
costing  in  the  millions. 

•  For  training  purposes,  companies  are  now  using 
personal  computers  to  instruct  employees  in  ev- 
erything from  advanced  optics  to  photocopier  re- 
pair. 

•  A  psychologist  is  using  his  computer  to  teach 
people  self-relaxation  techniques  and  self- 
hypnosis. 

•  Earth,  Wind,  and  Fire  use  a  computer  to  set  off 
flash  pots  and  explode  small  bombs  on  stage  dur- 
ing their  pyrotechnic  rock  performances. 

•  A  German  firm  is  using  a  personal  computer  to 
create  new  sweater  patterns. 

•  Daryl  Faud's  personal  computer  sifts  through 
hundreds  of  bacterial  strains  to  assist  in  recom- 
binant DNA  experiments. 

•  Dr.  Terry  Pundiak  uses  a  voice  interface  with  his 
computer  to  give  antismoking  lectures. 

•  Experimental  systems  that  are  being  developed 
to  read  ordinary  text  to  the  blind  are  based  on 
personal  computers. 

•  Boy  Scouts  across  the  nation  are  using  personal 
computers  for  help  in  earning  the  Computer 
merit  badge. 

•  Dr.  Michael  Lamb  has  adapted  his  personal  com- 
puter for  anesthesia  monitoring  during  surgery. 

•  Colossal  Pictures  Corporation  used  a  personal 
computer  to  create  the  title  sequences  for  The 
Black  Stallion  and  One  From  The  Heart. 

•  Psychologist  John  McPhee  developed  a  program 
to  analyze  Rorschach  Inkblot  Tests  on  his  per- 
sonal computer. 
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The  Sports  Car  Club  of  America,  San  Francisco 
office  uses  a  PC  personal  computer  to  track  race 
results  instantly. 

David  Curtis  turned  his  personal  computer  into  a 
lie-detector  and  analysis  machine. 
One  hobbyist  creates  personalized  Christmas 
letters  by  using  a  word  processor,  cutting  the 
time  required  in  half. 

A  bar-code  reader  allows  a  hobbyist  to  rapidly 
input  information  concerning  supermarket  items 
purchased.  A  pantry  inventory  can  easily  be 
created. 

One  thrifty  personal  computer  owner  devised  a 
program  to  randomly  match  each  person  in  his 
extended  family  for  exchange  of  gifts. 
One  family  uses  their  system  as  a  message  board 
to  store,  word-process,  and  display  messages  to 
other  family  members. 

Traveling  salesmen  use  their  portable  computers 
to  maintain  expense  accounts. 
One  hobbyist  created  a  "drunkometer"  program 
to  evaluate  residual  cognitive  function  in  those 
smashed  by  alcohol. 

A  nighttime  and  vacation  check-off  program  to 
remind  the  hobbyist  that  nights  and  vacations 
exist  for  a  purpose  and  to  ensure  that  all  neces- 
sary duties  have  been  taken  care  of  could  be  a 
godsend  to  obsessive  programmers. 
A  citrus  grower  uses  his  personal  computer  to 
continuously  monitor  temperature  and  soil  con- 
ditions to  alert  him  of  changes  and  automatically 
control  heaters  and  sprinklers. 
An  instrumentalist  uses  his  personal  computer  to 
accompany  him  on  the  flute. 
A  wrestling  coach  no  longer  tussles  with  the 
problem  of  pairing  500  boys  by  age  and  weight; 
he  uses  his  personal  computer. 
A  personal  computer  owner  about  to  marry 
created  a  database  to  map  out  chapel  seating  for 
100  wedding  guests  and  table  arrangements  for 
220  lunch  guests  and  to  do  tabulations  on  no- 
shows.  He  is  also  keeping  a  record  of  those  who 
give  gifts  and  what  they  send. 
'  A  new  minister  was  given  information  concerning 
the  personal  and  familial  problems  of  his  flock 


stored  in  a  database  created  by  the  retiring 
minister. 

•  Chicago  Alderman  Lawrence  Bloom  keeps  a 
database  of  6,000  voters  on  his  computer.  Pre- 
cinct workers  can  make  personalized  calls  and 
say  "Alderman  Bloom  helped  you  get  rid  of  that 
abandoned  car.  Now  he  needs  your  help." 

•  Carter  Scholz  used  his  personal  computer  to 
compute  the  lengths  of  a  set  of  tuned  wind 
chimes. 

•  The  Osvoz  family  of  New  York,  use  their  per- 
sonal computer  to  maintain  database  of  family 
medical  information,  including  blood  types,  al- 
lergies, dates  of  checkups,  poison  antidotes, 
eyeglass  prescriptions,  insurance  policies, 
check-up  reminders,  height,  and  weight. 

•  Professionally-prepared  programs  are  available 
to  plan  a  vacation  trip  for  you,  given  the  starting 
point  and  the  destination;  miles,  costs,  routes, 
and  itinerary  can  be  computed  automatically. 

•  Dave  Adams,  a  businessman,  uses  his  personal 
computer  with  a  modem  to  access  on-line  airline 
schedules  and  make  reservations.  The  Source 
and  CompuServe,  among  other  networks,  offer 
this  service. 

•  Automotive  expense  records,  including  the  fol- 
lowing information,  may  be  tracked  using  your 
personal  computer:  loan  or  lease  payment  rec- 
ords, accumulated  gasoline  costs,  MPG  average, 
maintenance  and  repair  records,  insurance  rec- 
ords, depreciation,  automotive  tax  deductables, 
and  accumulated  cost  per  mile  to  operate. 

•  Bill  Strozier  uses  his  personal  computer  to  oper- 
ate a  passive  solar  heating  system  in  his  home. 
The  computer  controls  the  opening  and  closing  of 
movable  partitions  and  shades  and  an  air  circula- 
tion system.  Other  personal  computer  owners 
have  controlled  active  solar  heating  collectors, 
directed  air  or  liquid  to  areas  where  it  was 
needed,  and  analyzed  the  performance  of  the 
system. 

•  One  hobbyist  uses  a  program  to  organize  his 
elaborate  home  workshop;  he  maintains  a  tool 
and  equipment  inventory  and  lists  of  parts  and 
supplies,  projects  completed,  and  future  projects 
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(with  tentative  starting  dates).  •  Several  executives,  computer  programmers,  and 

Bird  watcher  Edward  Mair  uses  a  personal  com-  writers  can  now  do  their  work  at  home,  rather 

puter  to  store  his  lifetime,  year,  state,  property,  than  traveling  to  the  office,  thanks  to  personal 

and  feeder  lists  and  for  exchanging  information  computers  linked  with  their  company's  computer 

with  other  birdwatchers  across  the  nation  via  a  via  modems, 
network. 
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Appendix 

Software  Source  Books 


The  books  and  magazines  listed  below  are  the  most  popular 
guides  to  microcomputer  software  available  for  popular 
brands  of  home  computers.  For  many  of  the  applications 
discussed  in  this  book,  there  is  a  professionally  designed 
program  available  and  listed  in  the  guides  below. 


The  Addison-Wesley  Book  of  Apple  Software  $19.95 

Addison-Wesley 
The  Addison-Wesley  Book  of  ATARI  Software  $19.95 

Addison-Wesley 
Big  Blue  Book  for  the  Apple 

Scribner 
Big  Blue  Book  for  the  ATARI 

Scribner 
Big  Blue  Book  for  the  Commodore 

WIDL  Video 
Big  Blue  Book  for  the  IBM  PC 

WIDL  Video 
The  Buyer's  Guide  to  Software  for  the  IBM  PC 

Byte/McGraw-Hill 
Commodore  Software  Encyclopedia 

Howard  Sams  and  Co. 
CP/M  Software  Finder  $1 4.95 

Que  Corporation 
IBM  PC  Expansion  and  Software  Guide 

Que  Corporation 


Vanboves  Apple  ll/lll  Software  Directory  $24.95 
VanLoves 

PUBLISHER'S  ADDRESSES 

Addison-Wesley  Publishing  Co. 
Jacob  Way 
Reading,  MA  01867 

Byte/McGraw-Hill 

1221  Avenue  of  the  Americas 

New  York,  NY  10020 

Howard  Sames  &  Co. 
4300  W.  63rd  St. 
Indianapolis,  IN  46268 

Que  Corporation 
7960  Castleway  Dr. 
Indianapolis,  IN  46250 

Charles  Scribner's  Sons 

597  Fifth  Ave. 

New  York,  NY  10017 

WIDL  Video 

5245  W.  Diversey  Ave. 

Chicago,  IL  60639 
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MICROCOMPUTER  MANUFACTURERS 


Access  Matrix  Corp. 

2159  Bering  Drive 
San  Jose,  CA  95131 

Albert  Computers 

3170  Los  Feliz  Drive 

Unit  C 

Thousand  Oaks,  CA  91362 

Alspa  Computer 

300  Harvey  West  Blvd 
Santa  Cruz,  CA  95060 

Altoe  Computer  Systems, 

2641  Orchard  Park  Way 
San  Jose,  CA  95134 

Apple  Computer 

20525  Mariani  Drive 
Cupertino,  CA  95014 

Atari  Products 

Box  50047 

San  Jose,  CA  95150 

Athena  Computer 

31952  Camino  Capistrano 
San  Juan  Capistrano,  CA 
92675 

Basis,  Inc. 

5435  Scotts  Valley  Drive 
Scotts  Valley,  CA  95066 

Canon  USA 

One  Canon  Plaza 

Lake  Success,  NY  11042 

Casio,  Inc. 

15  Gardner  Rd. 
Fairfield,  NJ  07006 

Coleco  Industries 

945  Asylum  Ave. 
Hartford,  CT  06105 

Columbia  Data  Products 

8990  Route  108 
Columbia,  MD  21045 

Commodore  Business  Mach. 

1200  Wilson  Drive 
Westchester,  PA  19380 

Compaq  Computer  Corp. 

20333  FM  149 
Houston,  TX  77070 


CompuPro 

Box  2355 

Oakland  Airport,  CA  94614 

Computer  Devices,  Inc. 

25  North  Ave. 
Burlington,  MA  01803 

Cromemco,  Inc. 

280  Bemado  Ave. 

Box  7400 

Mountain  View,  CA  94039 

Digital  Equipment  Corp. 

2  Mount  Royal  Ave. 
Box  1008 
Maynard,  MA  01752 

Docutel/OlivetU  Corp. 

155  White  Plains  Rd. 
Tarrytown,  NY  10591 

Durango  System 

3003  North  First  St. 
San  Jose,  CA  95134 

Dynalogic  Info-Tech  Corp. 

8  Colonnade  Road 
Ottawa,  CANADA,  K2E  7M6 

Eagle  Computer,  Inc. 

983  University  Ave. 
Los  Gatos,  CA  95030 

Epson  America 

3415KashiwaSt. 
Torrance,  CA  90505 

Formula  International 

12603  Crenshaw  Blvd. 
Hawthorne,  CA  90250 

Franklin  Computer  Corp. 

2138  Route  38 
Cherry  Hill,  NJ  08002 

Fujitsu  Microelectronics 

3320  Scott  Blvd. 
Santa  Clara,  CA  95051 

Gavilan  Computer  Corp. 

240  Hacienda  Ave. 
Campbell,  CA  95008 

Gifford  Systems 

1922  Republic  Ave. 
San  Leandro,  CA  94577 


Heath  Company 

Benton  Harbor,  Ml  49022 


Hewlett-Packard 

1000  NE  Circle  Blvd. 
Corvallis,  OR  97330 


Hitachi  Sales  Corp. 

West  Artesia 
Compton,  CA  90220 


Honeywell,  Inc. 

200  Smith  St. 
Waltham,  MA  02154 

IBC 

21592  Manila  St. 
Chatsworth,  CA  91311 

IBM 

Box  1328 

Boca  Raton,  FL  33432 

IMS  International 
2800  Lockheed  Way 
Carson  City,  NV  89701 

Intense  Data  Systems 

2300  Broad  River  Rd. 
Columbia,  SC  29210 

Ithaca  Intersystems 

200  E.  Buffalo,  Box  91 
Ithaca,  NY  14851 

Kaypro  Division 

POBoxN 

Del  Mar,  CA  92014 

LNW  Research  Corp. 

2620  Walnut 
TustJn,  CA  92680 

Mattel  Electronics 

5150  Rosecrans  Ave 
Hawthorne,  CA  90250 

Morrow  Designs 

600  McCormick  St. 
San  Leandro,  CA  94577 

MuttHech  Electronics 

195  West  El  Camino  Real 
Sunnyvale,  CA  94086 
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NEC  Horn*  Electronics 

1401  Estes  Ave. 

Elk  Grove  Village,  IL  60007 

NEC  Information  Syst 

5  Militia  Drive 
Lexington,  MA  02173 

Netronics  Research 

333  Litchfield  Rd. 
New  Milford,  CT  06776 


North  Star  Computers 

14440  Catalina  St. 
San  Leandro.  CA  94577 

Osborne  Computer  Corp. 

26538  Danti  Court 
Hayward,  CA  94545 

Panasonic  Co. 

One  Panasonic  Way 
Secaucus,  NJ  07094 

Radio  Shack 

One  Tandy  Center 
Fort  Worth,  TX  76102 

Sage  Computer  Tech. 

35  North  Edison  Way,  Suite  4 
Reno,  NV  89502 

Sanyo 

51  Joseph  St. 
Moonachie,  NJ  07074 


Seaaua  Coffloutar  Com. 

209  West  St. 
Annapolis,  MO  21401 

Sharp  Electronics 

10  Sharp  Plaza 
Paramus,  NJ  07662 

Sony 

Sony  Drive 

Park  Ridge,  NJ  07656 


Sord  Computer 

200  Park  Ave 

New  York,  NY  10166 

Spectravideo 
39  W.  37th  St 
New  York,  NY  10018 

Sumteomlnc. 
17862  East  17  St 
Tustin,  CA  92680 

ToteVMeo  Systems 

1170  Morse  Ave 
Sunnyvale,  CA  94086 

Texas  Instruments 

Box  53 

Lubbock,  TX  79408 

Tlmex  Computer 

Box  1700 
Waterbury,  CT  06721 


Toshiba  America 

2441  Michelle  Dr. 
Tustin,  CA  92680 

UnHrontes 

401  Grand  Ave. 
Suite  350 
Oakland,  CA  94610 

Vector  Graphic,  Inc. 

500  North  Ventu  Park  Rd. 
Thousand  Oaks,  CA  91320- 
2798 

Video  Technology 

2633  Greenleaf  Ave. 
Elk  Grove,  IL  60007 


Wang  Laboratories 

One  Industrial  Ave. 
Lowell,  MA  01851 


Xerox  Corp. 

1341  West  Mockingbird  Lane 
Dallas,  TX  75247 


Zenith  Data  Systems 

1000  North  Milwaukee  Ave 
Glenview,  IL  60025 
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Glossary 


address— The  location  in  memory  where  a  given 
binary  bit  or  word  of  information  is  stored. 

alphanumeric— The  set  of  punctuation,  letters  of 
the  alphabet,  and  numerical  characters  used  for 
computer  input. 

analog/digital  (A/D)  conversion— An  A/D 
converter  measures  incoming  voltages  and  out- 
puts a  corresponding  digital  number  for  each 
voltage. 

ASCII— The  American  Standard  Code  for  Infor- 
mation Interchange. 

assembly  language— A  low  level  symbolic  pro- 
gramming language  that  comes  closest  to  pro- 
gramming a  computer  in  its  internal  machine 
language.  Instead,  machine  language  code  is 
represented  by  mneumonics. 

binary— The  number  system  of  base  two,  which 
has  two  symbols,  1  and  0,  representing  the  on 
and  off  states  of  a  circuit. 

bit— One  binary  digit. 

byte— An  assembly  of  eight  bits  representing  a 
computer  word.  The  memory  capacity  of  a  com- 


puter is  usually  measured  in  terms  of  bytes. 

chip— An  integrated  circuit. 

compiler— A  program  that  converts  the  program 
statements  of  a  high-level  language  into  machine 
codes  for  execution. 

CPU  (Central  Processing  Unit)— The  major  op- 
erations center  of  the  computer  where  decisions 
and  calculations  are  made. 

data— Computer-coded  information. 

data  rate— The  amount  of  information  (data) 

transmitted  through  a  communication  line  per 

unit  of  time. 
debug— Remove  program  errors  (bugs)  from  a 

program. 
digital— A  circuit  that  has  only  two  states,  on  and 

off,  and  is  usually  represented  by  the  binary 

number  system. 
disk— A  memory  storage  device  that  makes  use  of 

a  magnetic  disk. 
DOS— Disk  operating  system;  allows  the  use  of 

general  commands  to  manipulate  data  stored  on 

a  disk. 
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firmware— Software  permanently  stored  in  a 
computer  using  a  read-only-memory  (ROM)  de- 
vice. 

floppy  disk— See  disk. 

flowchart— A  diagram  of  the  various  steps  to  be 
taken  by  the  computer  in  running  a  program. 

hardware— The  manufactured  equipment  of  a 
computer  system,  as  opposed  to  the  programs 
for  a  computer. 

hexadecimal— A  base  sixteen  number  system 
often  used  in  programming  in  assembly  lan- 
guage. 

input— Information  (data)  fed  into  the  computer. 

input/output  (I/O)  devices— Peripheral 
hardware  devices  that  communicate  with  or  re- 
ceive communications  from  the  computer. 

interface— A  device  that  converts  electronic  sig- 
nals to  enable  two  devices  to  communicate  with 
each  other;  also  called  a  port. 

interpreter— A  program  that  accepts  one  state- 
ment of  a  high-level  language  at  a  time,  converts 
that  statement  to  machine  language,  and  pro- 
ceeds to  the  next  statement.  BASIC  is  a  high- 
level  language  that  is  usually  an  interpreter 
rather  than  compiled. 

keyboard— A  series  of  switches,  usually  in  the 
form  of  a  typewriter  keyboard,  which  a  computer 
operator  uses  to  communicate  with  the  com- 
puter. 

languages— The  sets  of  words/commands  that 
are  understood  by  the  computer  and  used  in 
writing  a  program. 

loop— A  portion  of  a  program  that  is  to  be  repeated 
(looped)  several  times. 

machine  language— The  internal  low-level  lan- 
guage of  the  computer. 

mainframe— Referring  to  the  hardware  of  the 
central  processing  unit  (CPU). 

memory— Data  (information)  stored  for  future 
reference  by  the  computer  in  a  series  of  bytes. 

microcomputer— A  miniaturized  small  computer 


containing  all  the  circuitry  of  a  "minicomputer" 

on  a  single  integrated  circuit  chip. 
microprocessor— The  single  integrated  circuit 

chip  that  forms  the  basis  of  a  computer  (the 

CPU). 
mnemonic— An  abbreviation  or  word  that  stands 

for  another  word  or  phrase. 
modem— A  peripheral  device  that  converts  digital 

signals  to  audio  and  vice-versa. 
MPU-See  CPU. 

octal— A  base  eight  number  system  often  used  in 

machine  langauge  programming. 
opcode— An  operation  code  signifying  a  particular 

task  to  be  done  by  the  computer. 

parallel  port— A  data  communication  channel  that 
uses  one  wire  for  each  bit  in  a  single  byte. 

peripherals— Input/output  devices  such  as 
printers,  mass  storage  devices,  and  terminals. 

program— A  set  of  instructions  for  accomplishing 
a  task  that  the  computer  understands. 

RAM  (random  access  memory)— Memory  de- 
vices from  which  data  can  be  procured  or  in 
which  data  can  be  stored  by  the  computer. 

ROM  (read  only  memory)— Memory  devices 
from  which  data  may  be  procured  only;  the 
memory  contents  may  not  be  changed. 

RS232— A  standard  form  for  serial  computer  in- 
terfaces. 

serial  communication— A  method  of  data  com- 
munication in  which  bits  of  information  are  sent 
consecutively  through  one  wire. 

software— Computer  programs,  instructions,  and 
languages. 

statement— A  single  computer  instruction. 

subroutine— A  smaller  program  (routine)  within  a 
larger  program. 

terminal— An  input/output  device  using  a 
keyboard  and  video  or  printer  display. 

TVT— A  television  typewriter,  or  computer  termi- 
nal. 

word— A  basic  unit  of  computer  memory  usually 
expressed  in  terms  of  a  byte. 
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Index 


A/C  Voltage  Divider  Program,  119 
Accounting  systems,  business,  66 
Accounting,  personal,  54 
Activity  ratios,  37,  38 
Advantages  of  computers  in  educa- 
tion, 125 
Adventure  games,  1 57,  1 74 
Advisor,  game,  173 
Air  Conditioning  Program,  1 1 1 
Alarm  systems,  1 90 
Amateur  radio,  151 
Anagram  Creator  Program,  1 82 
Analog  to  digital  converter,  196 
Analysis,  statistical,  86 
Annuities,  53 
Answering  machine,  1 1 
Answering  service,  59 
Antenna  design,  118 
Aphormism  Generator  Program,  141 
Applications,  futuristic,  199 
Applications,  miscellaneous,  222 
Appraisal  tabulator,  61 
Aquarium  maintenance,  156 
Artistic  patterns,  1 04 
Arts,  musical,  142 
Arts,  verbal,  141 
Arts,  visual,  135 
Astrology,  155 


Astronomy  Demo  Program,  152 
Aviation,  112 

B 

Banking  at  home,  58 

Barometric  conditions,  1 06 

Biorhythms,  155 

Black  Sheep  game,  1 59 

Blood  Alcohol  Content  Program,  1 9 

Board  display,  1 73 

Board  games,  158 

Bonds,  30,  53 

Bookkeeper,  173 

Books,  personalized,  60 

Bowling  league  bookkeeping,  60 

Brainstorming,  218 

Breakeven  analysis,  65 

Bridge-it  game,  1 60 

Business  accounting  system,  66 


Calculation  of  the  Number  of  Days 
Between  Two  Date  Program,  72 

Calculations,  business,  66 

Calculator,  78 

Calculus,  computer,  98 

Capital  equipment  investment,  70 

Capital  Investment  Management  Pro- 
gram, 70 


Car,  trading  in,  13 

Card  Shuffling  Routine,  1 86 

Carpenters'  helper,  20 

Cash  flows,  63 

Categorizer  Program,  80 

Categorizer  Subroutine,  8 

Categorizing  Information,  8 

Change  distribution,  33 

Chemical  engineering,  124 

Chemistry,  113 

Chess,  180 

Chess-related  programs,  184 

Civil  engineering,  124 

Climate  control,  1 90 

Clock,  19 

Collection  service,  60 

Collections,  151 

Company  growth  rates,  39 

Composition,  music,  143 

CompuServe  subject  index,  202 

Computer  assisted  instruction,  127 

Computer-intelligence  games,  172 

Contests,  221 

Contract  preparation,  70 

Control  systems,  use  of,  193 

Control,  house,  190 

Countdown  game,  1 68 

Coupon  file,  18 

Critical  path  analysis,  1 2 
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Cross  Capture  game,  1 61 
Crossword  poetry,  138 
Curve  fit,  63 
Customer  file  management,  70 


Daily  Interest  Savings  Program,  56 

Data  bases,  22 

Database  management  system  uses, 

29 
Database  Program,  23 
Database  searching,  35 
Databases,  208 
Dating  service,  60 
Day  of  the  Week  Program,  1 7 
Days  between  two  dates,  72 
Dealers,  dedicated  hardware,  193 
Dealers,  household  control  devices, 

192 
Dealers,  robots,  198 
Decision  maker,  1 2 
Decision  making  in  business,  64 
Depreciation  calculations,  52 
Depreciation  Method  Comparison 

Program,  53 
Device  controller,  external,  194 
Dialer,  1 1 

Distributions,  statistical,  86 
Diving,  scuba,  156 
Drawing  programs,  1 73 
Drawing,  perspective,  139 
Drinks,  10,  19 


Editing,  59 

Educational  applications,  1 25 

Educational  programs,  60 

Electric  Cost  Analysis  Program,  1 1 1 

Electrical  engineering,  1 1 4 

Electronic  Memorandum  Program,  2 

Employment  agency,  60 

Energy  consumption,  14 

Energy  efficiency  computation,  107 

Engineering  applications,  114 

Equation  of  a  line,  97 

Equations,  simultaneous,  94 

Exercises,  15 

Experimental  applications,  114 

External  device  controller,  1 94 


Fields  of  data,  22 
Films,  animated,  150 
Filter  design,  114 
Filters,  formulae  for,  1 1 5 
Finance,  30 

Financial  databases,  44 
Financial  formulae,  45 
Financial  ratio  analysis,  35 
Financing  requirements,  65 
Finder's  fees,  59 
Fishing,  154 


Food  shopping  aid,  1 8 
Formulae  for  filters,  1 1 5 
Formulae,  financial,  45 
Formulae,  loan,  52 
Fundamental  analysis,  31 
Future  value  of  an  investment,  44 

G 

Gambling,  60,  154 

Games,  157 

Games,  mathematical,  100 

Gardening,  153 

Gas  Guzzler  Program,  1 4 

Geneological  storehouse,  1 55 

General  CAI  Program,  1 27 

Greeting  card  list,  1 2 

Greting  card  producer,  221 

Growth  Rate  Calculator  Program,  39 

H 

Handicapped,  aid  for,  217 

Handwriting  analysis,  222 

Health,  personal,  13 

Hexpawn  game,  167 

History,  215 

Hobbies,  149 

Home  banking,  58 

Home  location,  1 2 

Home  planning,  18 

Home  swapping,  59 

Hot  game,  160 

House  Heating  Program,  1 09 

Household  control  devices,  192 

Humanities  and  computers,  215 

I 

Income  tax,  57 

Index  to  library,  5 

Indexing,  59 

Inflation  rate,  43 

Information  utilities,  208 

Integral  evaluation,  95 

Interest  calculations,  46 

Internal  Rate  of  Return  Program,  63 

Inventors  Idea  Stimulator  Program, 

219 
Inventory  control,  65 
Inventory  management,  70 
Inventory  of  possessions,  1 6 
Investment  analysis,  44 
Investment  applications,  39 
Investment  decisions,  30 
Investments,  30 
Invitation  list,  12 
Itinerary  assistant,  1 0 


J 


Jam  game,  159 


Kaleidoscope  programs,  173 
Keywords,  2 


Kitchen  inventory,  16 


Language,  215 

Letter  writing,  7 

Letters,  business,  71 

Leverage  ratios,  37,  38 

Library  index,  5 

Life  Expectancy  Calculation  Program, 

21 
Life  game,  102 

Line  Equation  Calculator  Program,  97 
Liquidity  ratios,  37,  38 
Literature,  216 
Literature,  index  to,  1 7 
Loan  Amortization  Program,  49 
Loan  formulae,  52 
Loan  with  Points  Program,  51 
Loans,  50 

Logic  circuit  analysis,  119 
Logic  Circuit  Analysis  Program,  121 
Logic  games,  158 

Low-Pass  Filter  Design  Program,  115 
Lunar  Landing  Simulation  Program, 

129 

M 

Machine  design,  124 

Magic,  172 

Mailing  list,  68 

Mailing  lists,  59 

Manufacturers,  microcomputer,  227 

Marine  navigation,  112 

Marked  Square  Game,  1 69 

Mathematical  functions  in  the  arts,  1 35 

Mathematical  functions,  plotting,  95 

Mathematics,  91 

Matrix  routines,  212 

Mechanics'  helper,  20 

Medical  calculations,  113 

Message  system,  190 

Microcomputer  manufacturers,  227 

Mill  game,  168 

Minimum  investment,  47 

Model  building,  155 

Modem,  12 

Modems,  201 

Money-making  applications,  58 

Mortgage  Schedule  Program,  48 

Mortgages,  47 

Moving  Average  Calculator  Program, 

32 
Multiplication  Drill  Program,  132 
Multipurpose  programs,  21 1 
Music,  193 
Music  education,  142 
Music  Program,  145 

N 

Navigation,  112 

Network  Design  Program,  1 1 6 

Networking,  201 
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Networks,  local,  205 
Networks,  major,  202 
Neutron  game,  166 
Nim  Program,  163 
Nim  variations,  163 
Nutrition,  14 


Order  processing,  68 


Pascal's  art,  1 04 

Patterns,  textile,  1 39 

Payroll,  70 

People  matching,  220 

Personal  accounts  receivable/pay- 
able, 54 

Personal  reference  source,  1 

Personality  Test  Program,  1 88 

PERT,  12 

Photography,  149 

Physics,  114 

Pi  Calculation  Program,  101 

Planning,  house,  18 

Plotter  Program,  96 

Points,  51 

Polynomial  Evaluation  Program,  93 

Portfolio  beta,  43 

Portfolio  management,  31 

Predicting  results  of  sporting  events, 
99 

Price  indexes,  33 

Price/volume  trace,  33 

Private  information,  19 

Probabilities,  102 

Professional  practice  management, 
71 

Professions,  73 

Profitability  ratios,  37,  39 

Programming  challenges,  99 

Psychic  programs,  155 

Pulse  Rate  Program,  15 


Quizzes,  169 


Radio,  amateur,  151 

Raffle  tickets,  20 

Railroading,  model,  155 

Random  access  disk  comands, 

Random  Access  Sample  Routine,  6 

Random  art  patterns,  1 36 

Rate  of  change,  33 

Rating  calculations,  1 6 

Ratio  analysis,  35 

Ratio  relationships,  33 

Ratios,  35 

Real  estate,  60 

Real  Estate  Evaluation  Program,  61 

Recipe  Calculator  Program,  1 1 

Recipe  index,  9 


Record  keeping,  217 

Recreational  vehicles,  1 55 

Recreations,  computer,  179 

Recreations,  mathematical,  99 

Reference  information,  1 

Reference  table,  73 

Reference  Table  Program,  73 

Rental  locator,  59 

Resumes,  59 

Retirement  planning,  58 

RL  Equivalent  Impedance  Program, 

120 
Robots,  personal,  198 
Robotwar  II  Program,  176 
RPN  calculator,  78 
RPN  Calculator  program,  80 


Sales,  68 

Scheduling,  218 

Schematics  for  filters,  115 

Securities,  30 

Services,  59 

Short-term  insolvency,  42 

Shorthand  translator,  1 6 

Simple  Song  Transformation  Pro- 
gram, 148 

Simulation  games,  174 

Simulations,  educational  1 28 

Simulations,  large  scale,  131 

Simultaneous  Equation  Solver  Pro- 
gram, 94 

Software  source  books,  227 

Software,  choosing  for  educational 
use,  126 

Sorting  routines,  213 

Source  index,  204 

Source  subject  index,  204 

Sourcebooks,  software,  227 

Specialized  Word-Processor  Pro- 
gram, 8 

Speed  Reading  Program,  134 

Sports,  153 

Sports  predictions,  60 

Spreadsheets,  electronic,  64 

Star  Fight  Program,  1 70 

Statistical  Analysis  Program,  87 

Statistics,  85 

Stock  alpha  and  beta,  42 

Stock  market,  58 

Stock  Option  Analysis  Program,  41 

Stocks,  30 

Story  writer,  1 71 

Strategy  games,  1 58 

String  utility  routines,  212 

Subject  index,  the  Source,  204 

Subject  interest,  CompuServe,  204 

Sundial  design,  107 

Sundial  Design  Program,  108 

Sunrise  and  sunset,  155 

Supermarket  comparison,  60 

Surveying  calculations,  113 


Synthesizers,  computer  controlled, 

148 
Systems,  small  business,  60 


Tailor's  calculations,  21 8 

Tax  planning,  57 

Teaching  program,  131 

Technical  analysis,  31 

Telephone  Call  Timer  Program,  1 1 

Telephone  code,  21 8 

Telephone  numbers,  local  networks, 
205 

Temperature  Humidity  Index  Pro- 
gram, 107 

Terminal  programs  202 

Textile  Generator  Program,  1 39 

Three  Dimensional  Plotter  Program, 
135 

Tic-tac-toe  games,  1 61 

Tides,  154 

Time  calculations,  71 

Time  Difference  Program,  72 

Time  management  system,  1 2 

Timer,  19 

Translations,  215 

Trend  line  analysis,  34 

Tricolor  game,  158 

True  Annual  Interest  Rate  Program, 
46 

Tuknanavuhpi  game,  1 62 

Tutor,  computer,  1 28 

Typesetting,  59 

Typing  speed,  21 7 

U 

Universal  Decision  Making  Program, 

13 
Use  of  computers  in  the  professions, 

74 
Utility  programs,  212 


Vector  Addition  Program,  92 
Venus,  152 

Video  games,  157,  179 
Vocal  interface,  190 
Voice  control,  1 90 

W 

Warrants,  53 

Weather  forecasting,  1 05 

Weight,  15 

William  Tell  Program,  1 87 

Wind  Chill  Calculator  Program,  107 

Word  games,  1 69 

Word  processing  6,  60 

World  Series  Predictor  Program,  100 

Writing,  21 7 

Y 

Yagi  Antenna  Design  Program,  118 
Young  children,  programs  for,  1 73 


Edited  by  Marilyn  L.  Johnson 
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1001  Things  to  do  with  Your  TRS-80 

If  you  are  intrigued  with  the  possibilities  of  the  programs  included  in  7007  Things  to  do  with  Your 
TRS-80  (TAB  Book  No.  1 806),  you  should  definitely  consider  having  the  ready-to-run  disk  containing 
the  software  applications.  This  software  is  guaranteed  free  of  manufacturer's  defects.  (If  you  have 
any  problems,  return  the  disk  within  30  days,  and  we'll  send  you  a  new  one.)  Not  only  will  you  save  the 
time  and  effort  of  typing  the  programs,  the  disk  eliminates  the  possibility  of  errors  that  can  prevent  the 
programs  from  functioning.  Interested? 


Available  on  disk  at  $19.95  for  each  disk  plus  $1.00  each  shipping  and  handling. 
I'm  interested.  Send  me: 


disk  for  TRS-80,  Models  III  and  4,  48K  (6052S) 

TAB  BOOKS  catalog 

Check/Money  Order  enclosed  for  $1 9.95 

plus  $1 .00  shipping  and  handling  for  each  disk  ordered. 

VISA 

MasterCard 


Account  No.   '. Expires  

Name __ 

Address    . 

c'ty State  Zip 

Signature    ^___ 


Mail  To:    TAB  BOOKS  INC. 
P.O.  Box  40 
Blue  Ridge  Summit,  PA  17214 

PA.  add  6%  sales  tax.  Orders  outside  U.S.  must  be  prepaid  with  international  money  orders  in  U.S.  dollars. 

TAB  1806 
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